Create digital clock (VB)

Task : Create digital clock

Create label object

Name	Lbl_Clock
Caption	Clock

Create timer object with interval 1000
Place this code

Private Sub Timer1_Timer()
Me.Lbl_Clock.Caption = Format(Now(), "HH:mm:ss")
End Sub

Visual basic 6