I would just need to replace Private Sub Timer1_Timer () with this timer, I think:
Code:
Public Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Public Declare Function KillTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long) As Long
Public TimerId As Long, Var As Long
But this code will not be adapted to do the same as Timer