Buona giornata a tutti,ho un piccolo problema ,qualcuno può dirmi cosa c'é di sbagliato in questo codice,ringrazio anticipatamente a chiunque risponde.


Private Sub Timer1_Timer()
Dim Ore, Minuti, Secondi, Resto As Integer
Dim StringaOre, StringaMinuti, StringaSecondi,
Tempo As String
NumSecondi = NumSecondi + l
Ore = Int(NumSecondi / 3600)
Resto = NumSecondi - (Ore * 3600)
Minuti = Int(Resto / 60)
Secondi = Resto - (Minuti * 60)
StringaOre = Str$(Ore)
StrigaMinuti = Str$(Minuti)
StringaSecondi = Str$(Secondi)
Tempo = StringaOre + ":"
Tempo = Tempo + StringaMinuti + ":"
Tempo = Tempo + StringaSecondi
lblMessaggio.Caption = Tempo
End Sub