skal have en timer til at tælle sekunder og minutter

Private Declare Function GetTickCount& Lib "kernel32" ()
Dim start As Long
Dim slut As Long
Dim ret As Long

Private Sub Form_Load()
    start = GetTickCount
    MsgBox CStr(ret / 60000) + " min"
End Sub

Private Sub Form_Unload(Cancel As Integer)
slut = GetTickCount
ret = slut - start

MsgBox CStr(ret / 60000) + " min"

End Sub

Alternativt kan du hente systemtiden ved et API-kald ved start og slut, og trække de to tider fra hinanden - så slipper du for en timer. Men princippet for løsningen er den samme som lokepas har givet