Option Explicit
 
Private Declare Function GetCursorPos Lib _
  "user32" (lpPoint As POINTAPI) As Long
 
Private Type POINTAPI
  x As Long
  y As Long
End Type
 
Private m_X As Long
Private m_Y As Long
 
Private nSek As Long

Private Sub Form_Load()
  Timer1.Interval = 100
  Me.KeyPreview = True
  nSek = 0
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  ' Es wurde eine Taste gedrückt: Zählung von Neuem
  ' beginnen
  nSek = 0
End Sub

Private Sub Timer1_Timer()
  ' Mausposition abfragen
  Dim P As POINTAPI
  GetCursorPos P
 
  If P.x <> m_X Or P.y <> m_Y Then
    ' Maus wurde bewegt: Zählung von Neuem beginnen
    nSek = 0
  Else
    nSek = nSek + 1
  End If
 
  If nSek >= 300 Then
    ' Seit 5 Minuten keine Eingabe-Aktion!
    nSek = 0
 
    ' Aktions ausführen
    ...    
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de