Option Explicit
 
' benötigte API's
Private Declare Function GetCursorPos Lib _
  "user32" (lpPoint As POINTAPI) As Long
 
Private Type POINTAPI
  x As Long
  y As Long
End Type
 
' aktuelle Mauskoordinaten
Private nX As Long
Private nY As Long
 
' Bisher vergangene Sekunden bei Inaktivität
Private nSek As Long

Private Sub Form_Load()
  ' Timer initialisieren
  Timer1.Interval = 1000
  nSek = 0
End Sub

Private Sub Timer1_Timer()
  ' Mausposition abfragen
  Dim P As POINTAPI
 
  GetCursorPos P
  If P.x <> nX Or P.y <> nY Then
    ' Maus wurde bewegt!
    ' Zählung von vorne beginnen
    nSek = 0
  Else
    nSek = nSek + 1
    If nSek > 299 Then
      ' Die 5 Minuten sind vorbei
      Timer1.Enabled = False
 
      ' Neue Form anzeigen und aktuelle Form schließen
      Load Form2
      Form2.Show
      Unload Me
      Exit Sub
    End If
  End If
 
  ' Letzte Mausposition merken
  nX = P.x: nY = P.y
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de