这个用VB吧
测试过，可以用，是给布尔量赋值的
鼠标左键动作
Sub OnLButtonDown(Byval Item, Byval Flags, Byval x, Byval y)
Dim TEMP1,TEMP2
Set TEMP1 = HMIRuntime.Tags("S7$Program(3)/LA_db_P13305.CMD") //引号内是变量名称
Set TEMP2 = HMIRuntime.Tags("INT1")
TEMP2.Value = MsgBox("Do you want start the device",1) //引号内是你提示的操作内容
Select Case TEMP2.value
Case 1
TEMP1.Read
TEMP1.Value = TEMP1.Value Or 4
TEMP1.write
End Select
End Sub