Cronometro in una textbox

[cencio70]

Salve a tutti vi scrivo perche ho un problema nella creazione di un programmino che sto facendo con vba di excel. Devo creare un cronometro che sia dinamico in una textbox creata nella Userform. In un modulo ho inserito in seguente codice che mi permette di avviare il cronometro in una cella di excel:

Codice: Seleziona tutto

Sub Inizia()
Foglio2.[C3] = 0
End Sub

Sub Continua()
Foglio2.Select
If Foglio2.[A1] = "Stop" Then
Exit Sub
End If
Application.OnTime Now + TimeSerial(0, 0, 1), "Continua"
Foglio2.[C3] = Foglio2.[C3] + 1 / 86400
End Sub

Ma quando vado ad inserire il codice in un commandbox il valore non è continuo, ho letto che è utile utilizzare il me.repoint ma non ho idea di come fare, qualcuno mi può aiutare? Di seguito vi posto il comando nell'userform:

Codice: Seleziona tutto

Private Sub CommandButton1_Click()
Dim a As String
a = InputBox("Inserire la password per iniziare il gioco")
If a <> "pippo" Then
MsgBox ("Password errata")
Else
MsgBox ("Clicca sulla prima casella")
Image21.Enabled = True
End If

With TextBox5
.Value = Foglio2.[C3]
Foglio2.[A1] = "Cronometro Avviato"
Continua

End With
End Sub

Grazie

[Anthony47]

Immagino che la userform sia stata caricata in modalita' vbModeless; se e' cosi' allora prova a inserire la riga marcata <<<

Codice: Seleziona tutto

Foglio2.[C3] = Foglio2.[C3] + 1 / 86400
Userform1.TextBox5.Text=Format(Foglio2.Range("C3").Value, "hh:mm:ss")   '<<< ADD
End Sub


[Anthony47]

Scusa cencio, invece di litigare in altri forum non potresti dire se questa ipotesi e' applicabile?