Berikut source codenya..!!
Private Sub Form_Load()
Dim hari As Variant
hari = Now
lbl_hari.Caption = Format(hari, "dddd")
lbl_waktu.Caption = Format(hari, "h:mm:ss ampm")
lbl_waktu.Caption = Time
lbl_tanggal.Caption = Format(hari, "d mmmm yyyy")
End Sub
Private Sub timer1_Timer()
lbl_waktu.Caption = Time
End Sub
Atau dapat di download disini..!!