Membuat Tanggal,bulan dan Tahun Serta Hari secara Otomatis Pada Visual Basic 6

Bagaimana sih cara membuat tanggal,bulan dan tahun berikut hari secara otomatis pada Form Visual Basic.?

Begini Gan.. Berdasarkan apa yang telah saya buat pada beberapa Software yang telah saya buat,tehnik saya dalam membuat Tanggal,bulan dan tahun serta hari pada form Visual Basic 6 adalah sebagai berikut.

Buatlah beberapa Label dan juga Textbox sebagai tampilan untuk nantinya, seperti di bawah ini :

Toolbox   -  Nama         - Properties

Label           - Label1        - Caption : Jam - Menit - Tanggal

Label           - Label2       - Caption : Hari

Label           - Label3       - Caption : Tanggal

Textbox    - Tjam           - Di Kosongkan

Textbox    - Tmenit      - Di Kosongkan

Textbox    - TDetik        - Di Kosongkan

Textbox    - Thari           - Di Kosongkan

Textbox    - Ttgl               - Di Kosongkan

Textbox    - Tbulan        - Di Kosongkan

Textbox    - Ttahun       - Di Kosongkan

Timer         - Timer1        - Interval 1000

Kemudian setelah anda membuat Objek - Objek tersebut di atas,lalu masukan Source code atau coding nya sebagai berikut :

Masukan Sourcode ini  pada bagian form(load)

aHari = Array("Minggu", "Senin", "Selasa", "Rabu", "Kamis", "Jumat", "Sabtu")
Timer1.Enabled = True
Tjam = Hour(Now)
Tmenit = Minute(Now)
Tdetik = Second(Now)
Ttgl = Day(Now)
Tbulan = MonthName(Month(Now))
Ttahun = Year(Now)

Kemudian setelah itu,Masukan Source Code di bawah ini kedalam atau pada bagian Timer.

sHari = aHari(Abs(Weekday(Date) - 1))
Thari.Text = "" & sHari & ""
Tjam = Hour(Now)
Tmenit = Minute(Now)
Tdetik = Second(Now)
Ttgl = Day(Now)
Tbulan = MonthName(Month(Now))
Ttahun = Year(Now) 

Dan selanjutnya adalah memasukan Source Code di bawah ini pada bagian General (Declaration)

Dim sHari As String
Dim aHari

Terserah anda mau meletakan Waktu Digital tersebut di mana,yang pasti jika pengerjaan anda benar,maka hasil nya tetap akan tampak seperti pada Gambar  di atas..

Selamat mencoba... Good Luck..!!