23. Jak zrobić zegar na formularzu?

Mozna to zrobic korzystajac ze zdarzenia Form_Timer:
  1. Ustawiamy na formatce Okres czasomierza = 1000
  2. Budujemy procedurę w stylu:
Private Sub Form_Timer()
    Me!Pole1 = Format(Now(), "hh:mm:ss")
    'lub Me!Pole1 = Now(), a odpowiedni format ustawiamy w polu
End Sub

K. P.