Sotto "Option Explicit" scrivi semplicemente:
Dim NumSecondi as Long
codice:
Option Explicit

Dim NumSecondi As Long

Private Sub Timer1_Timer()
Dim Ore, Minuti, Secondi, Resto As Integer
Dim Tempo As String

NumSecondi = NumSecondi + 1
Ore = Int(NumSecondi / 3600)
Resto = NumSecondi - (Ore * 3600)
Minuti = Int(Resto / 60)
Secondi = Resto - (Minuti * 60)

Tempo = Format(CStr(Ore), "0#") & ":" & _
        Format(CStr(Minuti), "0#") & ":" & _
        Format(CStr(Secondi), "0#")

Label1.Caption = Tempo
Label1.Refresh
End Sub

Private Sub Command1_Click()
NumSecondi = 0
End Sub