If Vars("SysUpdateAggregate") '如果变量值为true
If Windows.Forms.Control.MouseButtons <> Windows.Forms.MouseButtons.None OrElse Windows.Forms.Control.ModifierKeys <> Windows.Forms.Keys.None Then '如果鼠标按钮被按住或者键盘功能键被按住
Return
End If
Dim Str1 As String = ""
Vars("SysUpdateAggregate") = False '把变量值为改为false。避免重复运行