Membuat Kalender Dengan Vb 6.0
Buatlah Form Seperti Dibawah Ini:

Klik Dua Kali Pada Timer,Lalu Ketiklah Listing Dibawah Ini:
Private Sub Timer1_Timer()
Dim hari_ini As Variant
hari_ini = Now
Label2.Caption = Format(hari_ini, "dddd")
label3.Caption = Format(hari_ini, "hh:mm:ss")
Label4.Caption = Format(hari_ini, "MMMM")
Label6.Caption = Format(hari_ini, "YYYY")
Label5.Caption = Format(hari_ini, "d")
End Sub
Tampilan Setelah Dijalankan:
Program ini dibuat oleh Heri Afrizal di bireuen

