y al volver a abrirlo empezar el conteo desde donde quedo.
Podria guardar el valor en un archivo .ini pero como adapto el codigo para empezar desde donde quedo y no siempre de cero.
Código:
Private Sub Timer1_Timer() ss = ss + 1 If ss = 60 Then ss = 0 mm = mm + 1 End If If mm = 60 Then ss = 0 mm = 0 hh = hh + 1 End If Label1.Caption = Format(hh, "00") & ":" & Format(mm, "00") & ":" & Format(ss, "00") 'If Label1.Caption = "01:30:15" Then 'MsgBox "funcion" 'End If End Sub