[VB] Membuat Kalender Warna-Warni

Deklarasi:
1 Form
4 Label
1 Timer
Label1
 Aligment=Center
 BackColor=&H0000FF00&
 Font Type =MS Sans Serif
 Font Size=24
Label2
 Aligment=Center
 BackColor=&H00FFFFFF&
 Font Type=Palatino Linotype
 Font Size=72
Label3
 Aligment=Center
 BackColor=&H0000FFFF&
 Font Type =MS Sans Serif
 Font Size=24
Label4
 Aligment=Center
 BackColor=&H00000000&
 Font Type =MS Sans Serif
 Font Size=24
Timer1
 Interval=1000 

Buatlah sedemikian rupa, kurang lebih mirip seperti ini:

Source Code:

Private Sub Timer1_Timer()
    Label1.Caption = Format(Now, "dddd")
    Label2.Caption = Format(Now, "dd")
    Label3.Caption = Format(Now, "mmmm")
    Label4.Caption = Format(Now, "hh") & _
 IIf(InStr(Label4.Caption, ":") > 0, " ", ":") & _
    Format(Now, "mm")
End Sub

Jangan Lupa Komentar Yaa..