VBTut
Home
Tutorials
Resources
'Code below public class form1: Private Declare Sub mouse_event Lib "user32" (ByVal dwflags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cbuttons As Long, ByVal dwExtraInfo As Long) Private Const mouseclickup = 4 Private Const mouseclickdown = 2 'Start button: timer1.start 'Stop button: timer1.stop 'Set interval button: textbox1.text = timer1.interval 'Timer: mouse_event(mouseclickdown,0 ,0 ,0 ,0) mouse_event(mouseclickup,0 ,0 ,0 ,0)