给你个例子 看看吧 我也不想码代码了，复制个例子给你看看 用READ 和WRITE来读写

提醒下，有时间写一个如A.READ 可能需要写两遍才能正常。

As a cyclic action, e.g. incrementing a tag: 

Option Explicit 

Function action 

'VBS145 

    Dim objTag1 

    Dim lngValue 

    Set objTag1 = HMIRuntime.Tags("Tag1") 

    lngValue = objTag1.Read 

    objTag1.Write lngValue + 1 

    action = CLng(objTag1.value) 

End Function