menampilkan jam dan tanggal pada form vb6

untuk menampilkan jam dan tanggal kita gunakan tool timer,label/textbox untuk menempatkan posisi jam dan tanggal itu
contoh buat form seperti ini

pada gambar diatas label1 akan saya gunakan untuk menampilkan jam dan label2 untuk menampilkan tanggal.untuk timer set dahulu intervalnya menjadi 1000 kemudian double klik pada timernya dan buat list kode seperti berikut
Private Sub Timer1_Timer()
Label1.Caption = Time
Label2.Caption = Format(Date, "dddd,dd-mm-yyyy")
End Subketika kita running maka hasilnya seperti ini

 
jika kita ingin memunculkan dalam bentuk textbox maka buat dahulu textbox nya dan ubah name textboxnya menjadi jam dan tgl pada propertiesnya
contoh

dan berikut list kode nya:
Private Sub Timer1_Timer()
jam.Text = Time
tgl.Text = Format(Date, "dd-mm-yyyy")
End Sub
ketika dijalankan/run maka jam dan tgl akan berada didalam masing2 textbox

demikian semoga bermanfaat