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