Private Sub cmdBersih_Click()
Me.txtharga.Text = ""
Me.txtjumbel.Text = ""
Me.txtkode.Text = ""
Me.txtnama.Text = ""
Me.txttotbay.Text = ""
Me.txtkode.SetFocus
End Sub

Private Sub cmdhitung_Click()
'Untuk mencari Total Bayar
Me.txttotbay.Text = Val(Me.txtharga.Text) * (Me.txtjumbel.Text)
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub Form_Load()
'Membuat Textbox tidak aktif
Me.txttotbay.Enabled = False
End Sub


                                                                                                           MTW & Edi