by Rhian ASeniero (8 Submissions)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 23rd April 2003
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Detect if mouse is not in motion. No API CAlls
dim ctr
private sub form_load()
ctr = 0
timer1.enabled = true
end sub
private sub form_mousemove(Paramaters.....)
ctr = 0
timer1.enabled = true
end sub
private sub timer1_timer()
if ctr = 10 then ' for 10 seconds detection
msgbox "Mouse is not active"
else
ctr = ctr + 1
end if
end sub