Forms: Créer une horloge sur un formulaire	Author(s) Dev Ashish

Créer une horloge sur un formulaire.

    Pour placer une horloge texte toute simple sur un formulaire, créer un étiquette, lblClock, utiliser la propriété TimerInterval du formulaire qu'on assignera à 1000, puis ajouter le code suivant à la procédure événementielle Timer du formulaire.

    Vous pouvez également ajouter les deux boutons  cmdClockStart et cmdClockEnd auxquels on attachera le code à leur événement Click.

'***************** Code Start ***************
Private Sub Form_Timer()
    Me!lblClock.Caption = Format(Now, "dddd, mmm d yyyy, hh:mm:ss AMPM")
End Sub

Private Sub cmdClockStart_Click()
    Me.TimerInterval = 1000
End Sub

Private Sub cmdClockEnd_Click()
    Me.TimerInterval = 0
End Sub
'***************** Code End ***************