Private Declare Function GetCursorPos Lib _
  "user32" (lpPoint As POINTAPI) As Long
 
Private Type POINTAPI
  x As Long
  y As Long
End Type
 
Private nX As Long
Private nY As Long
Private Pt As POINTAPI

Private Sub Form_Load()
  ' aktuelle Mausposition
  GetCursorPos Pt
  nX = Pt.x
  nY = Pt.y
End Sub

Private Sub Form_Activate()
  Timer1.Interval = 50
  Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
  GetCursorPos P
  If P.x <> nX Or P.y <> nY Then
    ' Maus wurde bewegt!
    Timer1.Enabled = False
    Unload Me
    End
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de