Private Sub form_load()
timer.Interval = 1000
timer.Enabled = true
End Sub
Private Timer_Time()
Label1.caption = time
End Sub
'Malheureusement avec cette méthode
'on n'est pas précis.
'Il ya des sauts de secondes.
' Avez vous une autre méthode autre
'
'PS: Ne marche pas non plus avec
' Seconde(Now)