Cara membuat DTPicker Update Otomatis (VB 6.0)

Untuk membuat DTPicker bisa update otomatis sesuai tanggal pada saat program itu di buka, lakukan langkah-langkah sebagai berikut:

• Buka Visual Basic 6.0.
• Buat Project baru.
• Buat design Form seperti berikut ini:

• Ganti properti masing-masing kontrol dengan ketentuan sebagai berikut :

Kontrol	Name	Value
Timer1	Timer1	-
DTPicker1	DTPicker1	11/07/2010

• Klik 2x Form dan ketikkan syntax berikut ini :

Private Sub Form_Load()
    Timer1.Interval = 500
    Timer1.Enabled = True
End Sub

•  Klik 2x kontrol Timer1 dan ketik syntax berikut ini :

Private Sub Timer1_Timer()
    DTPicker1.Value = Format(Date, "dd/mm/yyyy")
End Sub

• Tekan F5 untuk menjalankan.