si vabbè ho capito così faccio prima
codice:
'in un form
Option Explicit

Dim time1 As Long
Dim time2 As Long
Dim dTime As Single

Private Sub Command1_Click()
Static bInit As Boolean
    If bInit Then
        Command1.Caption = "stop"
        Timer1.Interval = 0
        bInit = False
    Else
        Command1.Caption = "start"
        Timer1.Interval = 1000
        time1 = Timer
        bInit = True
    End If
End Sub

Private Sub Timer1_Timer()
    If time1 > 0 Then
        time2 = Timer
        dTime = time2 - time1
        Label1.Caption = dTime
        Label1.Refresh
    End If
End Sub