CLOCK TUTORIAL
|
OBJECT LABEL1 LABEL2 TIMER1
FORM1 |
PROPERTY CAPTION CAPTION INTERVAL ENABLED CAPTION |
SETTING EMPTY EMPTY 1000 TRUE MIKES CLOCK |
Private Sub Timer1_Timer()
Label1.Caption = Time
Label2.Caption = Date
End Sub