HOW DESIGN DATE AND TIME PROGRAME IN VISUAL BASIC 6.0

Below is the interface of the design:

below are the code for this:


Private Sub Timer1_Timer()
Dim calendar As Variant
calendar = Now
lblday.Caption = Format(calendar, "dddd")
lblmonth.Caption = Format(calendar, "mmmm")
lblnumber.Caption = Format(calendar)
lblyear.Caption = Format(calendar, "yyyy")
lbltime.Caption = Format(calendar, "hh:mm:ss ampm")
End Sub