Menampilkan Isi Combo Box Secara Otomatis Tanpa Mengkliknya

Seperti yang kita ketahui combo box adalah sebuah tool box yang sering di gunakan sebagai tools pilihan, jadi di dalam sebuah text box terdapat sebuah teks / kalimat yang bisa kita pilih, tetapi untuk menampilkan kalimat tersebut kita harus mengkliknya terlebih dulu, baru akan muncul. Tapi di tutorial ini kita akan belajar cara memunculkan isi dari combo box secara otomatis tanpa mengkliknya, untuk membuat trik ini, kita akan menggunakan module untuk menuliskan scriptnya, Baiklah berikut tutorialnya :

1. Seperti biasa jalankan Visual Basic 6.0 dengan jenis project standar EXE
2. Lalu tambahkan 1 Module dan tuliskan script berikut di dalamnya :

'Awal Script Untuk Module
Public Declare Function ComboAuto Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam _
As Long, ByVal lParam As Long) As Long

Public Const AutoCombo = &H14F
'Akhir Script Untuk Module

3. Jika sudah, kembali ke Form, tambahkan satu combo box dengan propeties Text kosong,

jika sudah tuliskan script berikut :

Private Sub Form_Load()
'Script Untuk Memanggil / Menggunakan fungsi Combo Auto di Module
BP = ComboAuto(Combo1.hwnd, AutoCombo, True, 0)
'Combo1 adalah name dari combo box yang akan di gunakan

'Script Untuk Menambahkan Item di Combo Box
With Combo1
.clear
.AddItem "Blues Pedia"
.AddItem "Tutorial"
.AddItem "Visual Basic"
.AddItem "Auto Combo Box"
.AddItem "Succes"
End With
End Sub

4. Selesai, langkah selanjutnya tekan F5 untuk menjalankan Program

Ketika program di jalankan, otomatis combo box akan menampilkan isi dari combo box (Add Item),
di sini saya menuliskan item untuk combo box adalah Bues Pedia Tutorial Visual Basic Auto Combo Box Succes, 
anda bisa merubah item yang ada di combo box sesuai keinginan dan kebutuhan anda, ganti saja kata yang ada di antara tanda kutip (")

Bagaimana mudah bukan ?
Itulah tutorial mengenai Cara Membuat Isi Combo Box Tanpa Mengkliknya, sekian tutorial kali ini semoga bermanfaat
Terima Kasih