Reiterare una procedura quando il tasto del mouse viene tenuto premuto su un Controllo

Mostriamo un semplice codice, con il quale reiterare una procedura usando il Timer, quando il tasto del mouse viene tenuto premuto su un Controllo, in questo caso su un Button.

Private i As Integer


Public Sub Button1_MouseDown()

 Timer1.Start

End

Public Sub Button1_MouseUp()

 Timer1.Stop

End

Public Sub Timer1_Timer()

 Inc i
 Print i

End