cioa a tutti vorrei sapere come mai quando avvio il programma il timer viene visualizzato ma nn va avanti viene 0:0:1 ma nn va avanti come mai?
questo è il codice
codice:
Private Sub Timer1_Timer()
Dim ore, Minuti, Secondi, Resto As Integer
Dim StringaOre, StringaMinuti, StringaSecondi
NumSecondi = NumSecondi + 1
ore = Int(NumSecondi / 3600)
Resto = NumSecondi - (ore * 3600)
Minuti = Int(Resto / 60)
Secondi = Resto - (Minuti * 60)
StringaOre = Str$(ore)
StringaMinuti = Str$(Minuti)
StringaSecondi = Str$(Secondi)
Tempo = StringaOre + ":"
Tempo = Tempo + StringaMinuti + ":"
Tempo = Tempo + StringaSecondi
lblMessaggio.Caption = Tempo
End Sub
grazie per la risp