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

Dim Window    

Set Window = ScreenItems("ANALOG")'获取窗口对象名称

Window.Left = item.Left+20 '确定窗口X轴

Window.Top =  item.Top+20 '确定窗口Y轴

Window.CaptionText = "高盐废水储池超声波液位计"'为窗口分配标题

Window.TagPrefix = "LIT1A0101_AI."'分配变量前缀

Window.Visible = vbTrue'显示窗口

'计算窗口位置，如果窗口位置超出父级画面位置则重新定位

If Window.Left < 0 Then Window.Left =10

If Window.Top < 0 Then Window.Top = 10

If (Window.Left + Window.Width) > Window.Parent.Width Then Window.Left = Window.Parent.Width - Window.Width - 10

If (Window.Top + Window.Height) > Window.Parent.Height Then Window.Top = Window.Parent.Height - Window.Height - 10

'Dim mytimer

'mytimer=Timer+1

'Do Until Timer>mytimer

'Loop

Dim objCon1

'HMIRuntime.Trace "Test-Kont" & vbCrLf

Set objCon1 = HMIRuntime.ActiveScreen.ScreenItems("Trend")

    objCon1.TrendTagName = "TT\LIT1A0101_AI.Result"

    Dim objvalue,b,e,s,e1

    Set e=HMIRuntime.Tags("LIT1A0101_AI.Hlimt")

    e.Read

    Set b=HMIRuntime.Tags("LIT1A0101_AI.Llimt")

    b.Read

    Set objvalue= objCon1.GetValueAxis(0)

    objvalue.AutoRange=False

    objvalue.BeginValue = b.Read

    objvalue.EndValue = e.Read

    objvalue.Label="m"

End Sub

这个是脚本