It works!
Yes!!!
I figured it out, little stupid me...
Here it is, simplified as much as I could:
Private Declare Function SetTimer Lib "User32" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Sub time_ma()
For i = 1 To...