Membuat Calender Dari VB 6.0

Untuk contoh penggunaan calendar,lakukan langkah-langkah berikut ini:

a.             Buat sebuah proyek baru.

b.            Tambahkan sebuah calendar dan sebuah text box pada form seperti gambar dibawah ini

 

 

 

 

 

 

 

 

 

 

 

 

 

 

c.Untuk Kode programnya sebagai berikut:

Private sub calendar1_click()

Text1.text=calendar.value

End sub

d.            Jalankan program tersebut dan coba klik pada calendar,Hasilnya nilai dari calendar akan ditampilkan pada text box seperti gambar dibawah ini