Private Type POINTAPI
  x As Long
  y As Long
End Type
 
Private Declare Function GetCursorPos Lib "USER32.DLL" (lpPoint As POINTAPI) As _
  Long
 
Dim MAUSALT As POINTAPI
Dim NotMoved As Integer
Dim SekTimer
 
Private Sub trmMaus_Timer()
    Dim Neu As POINTAPI
    Dim RET As Integer
 
    RET = GetCursorPos(Neu)
 
    If Neu.x <> MAUSALT.x Or Neu.y <> MAUSALT.y Then
        MAUSALT.x = Neu.x: MAUSALT.y = Neu.y
        NotMoved = 0: SekTimer = Timer + 1
    End If
 
    If SekTimer < Timer Then
        SekTimer = Timer + 1
        NotMoved = NotMoved + 1
    End If
 
End Sub