Penjualan Toko Maju

KODE PADA KOLOM NOMOR BARANG

Private Sub Cmbnomor_Click()
If Cmbnomor.Text = "44" Then
txtbarang.Text = "biore"
txtharga.Text = "15000"
ElseIf Cmbnomor.Text = "55" Then
txtbarang.Text = "marina"
txtharga.Text = "20000"
ElseIf Cmbnomor.Text = "66" Then
txtbarang.Text = "supermi"
txtharga.Text = "4000"
End If
End Sub

KODE PADA TOMBOL HITUNG 

Private Sub cmdhitung_Click()
txtharus.Text = Val(txtjumlah.Text) * Val(txtharga.Text)
End Sub

KODE PADA TOMBOL LAGI

Private Sub cmdlagi_Click()
txtnama.Text = " "
Cmbnomor.Text = " "
txtbarang.Text = " "
txtjumlah.Text = " "
txtharga.Text = " "
txtharus.Text = " "
End Sub

KODE PADA TOMBOL SELESAI

Private Sub cmdselesai_Click()
Unload Me
End Sub

KODE UNTUK MEMUNCULKAN NO NOMOR

Private Sub Form_Load()
Cmbnomor.AddItem "44"
Cmbnomor.AddItem "55"
Cmbnomor.AddItem "66"

End Sub