How to know if the mouse is in idle state

    Public Sub PrintMouseCoordinates
        Dim p As System.Drawing.Point=System.Windows.Forms.Cursor.Position
        Debug.Print( CStr(p.X) & ", " & CStr(p.Y))
    End Sub

Public Module Module1

    Private WithEvents _timer As System.Windows.Forms.Timer
    Private _cursorPos As System.Drawing.Point
    Private _mouseIsIdle As Boolean

    Public Sub StartMouseMonitoring
        ThisApplication.Output.Show
        ThisApplication.Output.Clear
        _timer =New System.Windows.Forms.Timer
        _timer.Interval=500
        _timer.Start
        _cursorPos=System.Windows.Forms.Cursor.Position
        _mouseIsIdle=True
    End Sub

    Public Sub StopMouseMonitoring
        If _timer IsNot Nothing Then
            _timer.Stop
            _timer=Nothing
        End If
    End Sub

    Private Sub _timer_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles _timer.Tick
        Dim p As System.Drawing.Point=System.Windows.Forms.Cursor.Position
        'calculate move btween ticks
        Dim d As Double=System.Math.Sqrt((p.X-_cursorPos.X)*(p.X-_cursorPos.X)+(p.Y-_cursorPos.Y)*(p.Y-_cursorPos.Y))
        _cursorPos=p
        Dim mouseIsIdle As Boolean=(d=0)'check if the mouse is moving
        If mouseIsIdle<>_mouseIsIdle Then
            'mouse started or stopped
            If mouseIsIdle Then
                ThisApplication.Output($"Mouse stopped at coordinates {p.X} , {p.Y} : on {System.DateTime.Now().TimeOfDay.ToString()}")
            Else
                ThisApplication.Output($"Mouse started moving on {System.DateTime.Now().TimeOfDay.ToString()}")
            End If
            _mouseIsIdle=mouseIsIdle
        End If
    End Sub
End Module

    Public Sub TimedInteractionNoButtons
        Try
            With Automate.ScriptingCommands.Interaction(Nothing)
                .Prompt="Timed interactive prompt"
                .InteractionButtons=0'no Ok button
                .Timeout=5000
                .Interactive = True
                .Run(ThisApplication.ActiveImage, Nothing)
                MsgBox("Wait time expired.")
            End With
        Catch
            MsgBox("Cancel was hit.")
        Finally
        End Try
    End Sub