Neeraj,

It seems the others have a given good examples on
how to capture mouse movement.  To capture keyboard
input, set the keypreview property of your form to
true then in your Form_KeyPress event just
reset your variable.

Private Sub Form_KeyPress(KeyAscii As Integer)
  DetectedMovementFL = True
End Sub

Cardyin

--------------------------------------
Cardyin Kim
C/S & Web Development Analyst
Information Services
San Antonio Community Hospital
ckim@s...     (xxx)xxx-xxxx     
--------------------------------------