form_menu

Private Sub Option_makanan_Click()
OptionMinuman.Value = False
ListMenu.Clear
ListMenu.AddItem "bakso"
ListMenu.AddItem "mi ayam"
ListMenu.AddItem "soto"
End Sub

Private Sub OptionMinuman_Click()
Option_makanan.Value = False
ListMenu.Clear
ListMenu.AddItem "es teh"
ListMenu.AddItem "teh anget"
ListMenu.AddItem "es jeruk"
End Sub

Private Sub show_selamat_datang_Click()
Form_menu.Hide
Form_selamat_datang.Show
End Sub