Finde ud af om musen er flyttet

'-------------------------------- Form1 --------------------------------
Option Explicit

Private Type POINTAPI
        X As Long
        Y As Long
End Type

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Public Function IsMouseMove() As Boolean
Dim pt As POINTAPI
Static lngPos(1) As Long
  Call GetCursorPos(pt)
  If pt.X <> lngPos(0) Or pt.Y <> lngPos(1) Then
    lngPos(0) = pt.X: lngPos(1) = pt.Y
    IsMouseMove = True
      Else
    IsMouseMove = False
  End If
End Function

Private Sub Form_Load()
  Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
  Me.Caption = IsMouseMove
End Sub
'-------------------------------- Form1 --------------------------------

udmærket sjh, men der blev spurgt efter klokken, så en ændring i

Private Sub Timer1_Timer()
If IsMouseMove = True Then
  Me.Caption = Time ' Me.Caption kan ændres til en global variabel, så kan den testes
  End If
End Sub

Takker..:)