[VB6] Cronometro con timer

[superleoleo]

Ho trovato e modella secondo le mie richieste questo cronometro per vb6

Dim Myore, Mymin, Mysec
Dim MyStrTmp
Dim Pausa As Boolean

'Bottone start
Private Sub Command1_Click()
    Timer1.Enabled = True
End Sub

'Bottone stop
Private Sub Command2_Click()
    Timer1.Enabled = False
End Sub

'Bottone pause
Private Sub Command3_Click()
    Pausa = Not Pausa
End Sub

'Bottone reset
Private Sub Command4_Click()
    Timer1.Enabled = False
    MyStrTmp = Time
End Sub


Private Sub Form_Load()
    Timer1.Interval = 1000
    Timer1.Enabled = False
    MyStrTmp = Time
End Sub


Public Sub Timer1_Timer()
    If Not Pausa Then
        tmptrascorso = Time - MyStrTmp
        Myore = Format(tmptrascorso, "hh")
        Mymin = Format(tmptrascorso, "nn")
        Mysec = Format(tmptrascorso, "ss")
    End If
End Sub

Ho un po di problemi cioè:

1)Appena faccio partire il mio programma il timer parte (inizia a contare) e se schiaccio il tasto start non parte da 0 ma dal numero di secondi uguale a quelli in cui ho fatto partire il mio progetto (se il progetto è partito da 20 secondo il timer sarà a 20 se clicco start e non a 0), a me serve invece che il timer inizi a contare effettivamente da 0

2)Stesso problema se schiaccio pause, il cronometro è apparentemente fermo in realta sta continuando a contare...

3)E' possibile implementare dei tasti che mi permettano di far andare più veloce il cronometro? esempio un tasto per " x2 " mi permette di far contare 2 secondi nel tempo di 1

Fatemi sapere ringrazio tutti anticipatamente

[Fado84]

Non puoi far semplicemente così?!
comand1=start
comand2= x2
comand3= pausa
comand4=reset
se premi pausa e poi start riparte

Dim pausa As Boolean
Public ora As Date

Private Sub Command1_Click()
Timer1.Enabled = True
pausa = False
End Sub


Private Sub Command2_Click()
Timer1.Interval = 500
End Sub

Private Sub Command3_Click()
pausa = True
End Sub

Private Sub Command4_Click()
Label1.Caption = "00:00:00"
ora = "00:00:00"
End Sub

Private Sub Form_Load()
Timer1.Interval = 1000
Label1.Caption = "00:00:00"
End Sub

Private Sub Timer1_Timer()
If pausa = False Then
ora = ora + "00:00:01"
Label1.Caption = ora
End If
End Sub

[superleoleo]

Grazie ho modificato tutto, mi trovo meglio con questo sistema!

Ciao!