Vise 1/100 og 1/1000 sec

Følgende kode tæller f.eks. tiden op med 1/1000 dels visning fra programmet startes. Der skal være en Timer og en Label på formen:

Private t As Long
Private ms As Long
Private secs As Long
Private mins As Long
Private hours As Long

Private Sub Form_Load()
    t = 0
    Timer1.Interval = 1
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    t = t + 1
       
    If (t = 1000) Then
        t = 0
        secs = secs + 1
    End If
    ms = t
    If (secs = 60) Then
        mins = mins + 1
        secs = 0
    End If
    If (mins = 60) Then
        hours = hours + 1
        mins = 0
    End If

    Label1.Caption = CStr(hours) + ":" + CStr(mins) + ":" + CStr(secs) + ":" + CStr(ms)
   
End Sub

... så kan du selv rette det til. Det skulle være rimeligt nemt at lave et stopur ud af det.

Kigger lige på det og vender tilbage :-)

Jeg kan ikke helt få det til at virke.
Den er præcis 10 sec. om at tælle til 1000?

Det er som om Timer'en tæller i 100-dele for hvis jeg ændrer den til:

If (t = 100) Then
        t = 0
        secs = secs + 1
    End If

osv...

så passer det!

Så tæller den åbenbart i 100-dele. Jeg mente ellers at kunne huske, at den kunne tælle i 1000 dele.

Ja, og det skulle den også jf. MSDN så jeg forstår det ikke.
Nå - men det kan man jo gange og dividere sig ud af.

Tak for hjælpen :-)