Select case

program ini berguna untuk memilih sesuatu,biar lebih jelas seperti biasa langsung praktek

cara :
buatlah:
3 textbox(Text =kosongkan)
1 commandbuton (caption = Lihat Barang)
3 label(caption = Pilih barang,Nama barang,Harga)

lalu masukan di command1(pilih barang)

nomor = Val(Text1)
Select Case nomor
Case 1:
namaMenu = "Baju"
harga = 50000
Case 2:
namaMenu = "Sapatu"
harga = 30000
end select

selesai deh

kurang jelas silahkan komen