1、新建一个画面，在画面中分别拖入一个圆 对象和圆形按钮对象。
圆对象的名称改为Circlel。
2、在变量管理器中，新建一个C_fill的内部变量，变量类型为32位无符号数，作为圆的半径。
在对象圆的属性对话框中，选择 几何，在半径一项中，小灯泡处右键选择变量C_fill。
3、单击圆形按钮在属性对话框中选择事件栏，选择鼠标项，在左键按下一项中右键选择VBS脚本，打开VBS脚本编辑器。
输入代码函数。
Dim objCircle
Dim objTag
Set objCircle=ScreenItems("Circlel")
Set objTag=HMIRuntime.Tags("C_fill")
objTag.Read
objTag.Value=objTag.Value+18
objTag.Write
objCircle.Radius=objTag.Value
实现每次按下鼠标左键，圆半径加大18
4、在右键按下右键选择VBS脚本，打开VBS脚本编辑器。
输入代码函数
Dim objCircle
Dim objTag
Set objCircle=ScreenItems("Circlel")
Set objTag=HMIRuntime.Tags("C_fill")
objTag.Read
objTag.Value=objTag.Value-18
objTag.Write
objCircle.Radius=objTag.Value
实现每次按下鼠标右键，圆半径减小18
5、运行仿真，按下鼠标左键，圆变大，按下鼠标右键，圆变小。
