Membuat Jam Digital menggunakan VB

Public Class Form1

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim jam As Date
        jam = DateTime.Now
        TextBoxJam.Text = jam.Hour.ToString()
        TextBoxMenit.Text = jam.Minute.ToString()
        TextBoxDetik.Text = jam.Second.ToString()
        'TextBoxTanggaltanggal.text=jam.Date.ToString()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim tgl As Date = Now.Date
        TextBoxTanggal.Text = tgl
        Timer1.Start()
    End Sub
End Class

HASILNYA >>

SELAMAT MENCOBA :) :D