查询按钮，根据实现范围进行查询：

Sub OnLButtonDown(Byval Item, Byval Flags, Byval x, Byval y)                         

Dim Trend1

Set Trend1 = ScreenItems("Trend1")

Dim Begin_Date

Set Begin_Date = ScreenItems("Begin_Date")

Dim Begin_Time

Set Begin_Time = ScreenItems("Begin_Time")

Dim End_Date

Set End_Date = ScreenItems("End_Date")

Dim End_Time

Set End_Time = ScreenItems("End_Time")

Dim Begin_DT

Dim End_DT

Trend1.Online = 0

Sleep 300000

Begin_DT= FormatDateTime(Begin_Date.Value,2)&" "&FormatDateTime(Begin_Time.Value,3)

End_DT = FormatDateTime(End_Date.Value,2)&" "&FormatDateTime(End_Time.Value,3)

Trend1.TimeAxisBeginTime = Begin_DT

Trend1.TimeAxisEndTime = End_DT

End Sub