Dim x As Integer = 0
Dim y As Integer = 0
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
x = Control.MousePosition.X
y = Control.MousePosition.Y
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Dim x1 As Integer = Control.MousePosition.X
Dim y1 As Integer = Control.MousePosition.Y
If (x1 = x AndAlso y1 = y) = False Then
MsgBox("666")'位置变了鼠标有移动
End If
End Sub
Timer 自己设置时间即可,如两秒判断一次,则Timer设置两秒触发一次