perhitungan harga tidak pakai keypress
Private Sub cmdhitung_Click() txtdis.Text = Val(txtha.Text) * 0.1 txtak.Text = Val(txtha.Text) - Val(txtdis.Text) End Sub Private Sub cmdquit_Click() End End Sub Private Sub cmdulangi_Click() txtha = "" txtdis = "" txtak = "" txtha.SetFocus End Sub