Har problemet att jag har 3forms och en module jag vill att en timer går fast man byter olika forms. Men efter som jag har lagt timern till en av dom så rör den inte på sig när man byter form. Hur kan jag fixa så att den rullar på när jag är på olika forms?


Mvh William

Du kan lägga den här koden i en modul:

<code>
Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Declare Function killTimer Lib "user32" Alias "KillTimer" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long

Public Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)

'Kod

End Sub

Public Function startTimer(interval as Long) As Long
startTimer = SetTimer(0, 0, interval, AddressOf TimerProc)
End Function

Public Sub stopTimer(idTimer As Long)
killTimer 0, idTimer
End Sub
</code>

/Micke