VISUALBASIC :EJERCICIO 10

Dim seg, minu, hor As Integer

Private Sub Form_Load()
seg = 0
minu = 0
hor = 0
End Sub

Private Sub Timer1_Timer()

seg = seg + 1
If seg = 60 Then
minu = minu + 1
seg = 0
If minu = 60 Then
hor = hor + 1
minu = 0
If hor = 24 Then
hor = 1

End If