ComboBox
Klik tanda segitiga hitam combobox, lalu pilih edit itemsTambahkan list yang diinginkan
Jalankan dengan tekan F5 maka akan ditampilkan layout
Kemudian tambahkan sintax :
Private Sub combobox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles combobox1.SelectedIndexChanged
Dim menu As String
menu = combobox1.SelectedItem
MsgBox("Pilihan adalah : " & menu)
End Sub
Untuk melihat tekan F5, lalu pilih salah satu item yang didaftar combobox tersebut, maka akan di tampilkan seperti