vb.net 监控鼠标是否有移动

    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设置两秒触发一次