Membuat Jam dan Kalender Digital VB.NET

Kalau judul di atas sobat dah ngerti semua kan, kalau gitu langsung aja di Uji coba...
Asset : 4 label dengan Nama (lblJAM, lblMENIT, lblDETIK, dan lblKALENDER) + 1 timer dan ubah Enabled menjadi True

Double Click pada Timer, dan masukan Script di bawah ini :

 Dim Jam As Date
        Jam = DateTime.Now
        lblJAM.Text = Jam.Hour.ToString()
        lblMENIT.Text = Jam.Minute.ToString()
        lblDETIK.Text = Jam.Second.ToString()
        lblKALENDER.Text = Jam.Date.ToString()


Mudah kan...
Dan kalau mau gabungin JAM dan KALENDER dalam 1 Label.., Gampang
Asset : 1 Label dengan Nama lblTIMEDATE , 1 timer ubah Enabled menjadi True

Double Click timer dan masukan Script dibawah :

 Dim TD As Date
        TD = DateTime.Now
        lblTIMEDATE.Text = TD

Cuma dengan memotong dan merubah sedikit Script kan...Semoga Bermanfaat