if else dan select case

buat form seperti berikut dan beri nama pada masing-masing tool di propertiesnya

coding:
klik pada form, tambahkan coding berikut untuk menambahkan daftar pada combo1 dan combo2

Private Sub Form_Load()
Combo1.AddItem ("makan pagi")
Combo1.AddItem ("makan siang")
Combo1.AddItem ("makan malam")
Combo2.AddItem ("paket super")
Combo2.AddItem ("paket hemat")
End Sub

kemudian buat kode di combo2 karena disini combo2 yang akan menjalankan perintah.ketika pilih jenis paket maka harga dan list menu akan muncul
berikut codingnya:

Private Sub Combo2_Click()
If Combo1.Text = "makan pagi" Then
Select Case (Combo2.Text)
Case "paket super"
List1.Clear
List1.AddItem ("Nasi Uduk")
List1.AddItem ("Telur")
List1.AddItem ("Tempe Orek")
txthrgmenu = 5000
Case Else
List1.Clear
List1.AddItem ("Nasi Goreng")
List1.AddItem ("Telur Mata Sapi")
List1.AddItem ("Tempe goreng")
txthrgmenu = 7000
End Select
ElseIf Combo1.Text = "makan siang" Then
Select Case (Combo2.Text)
Case "paket super"
List1.Clear
List1.AddItem ("Nasi biasa")
List1.AddItem ("ikan")
List1.AddItem ("Tempe Orek")
txthrgmenu = 10000
Case Else
List1.Clear
List1.AddItem ("Nasi kucing")
List1.AddItem ("Telur Mata kebo")
List1.AddItem ("Tempe bacem")
txthrgmenu = 11000
End Select
Else
Select Case (Combo2.Text)
Case "paket super"
List1.Clear
List1.AddItem ("nasi biasa")
List1.AddItem ("stick")
List1.AddItem (" Orek")
txthrgmenu = 16000
Case Else
List1.Clear
List1.AddItem ("Nasi kebo")
List1.AddItem ("Telur Mata wedus")
List1.AddItem ("Tempe")
txthrgmenu = 17000
End Select
End If
End Sub

silahkan runing

thanks semoga bermanfaat