Menampilkan Jam dengan Visual Basic .Net

Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load DTTanggal.Format = DateTimePickerFormat.Custom DTTanggal.CustomFormat = "dddd, dd/MM/yyyy" DTTanggal.Value = Format(Now) End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Lbl12Jam.Text = Format(Now, "h:mm:ss tt") Lbl24Jam.Text = Format(Now, "hh:mm:ss") End Sub End Class