perhitungan harga tanpa keypress

Private Sub cmdhitung_Click()          

txtdis = Val(txtha) * 0.1

txtak = Val(txtha) - (txtdis)

End Sub

Private Sub Cmdreset_Click()

txtha = ""

txtdis = ""

txtak = ""

txtha.SetFocus

End Sub

Private Sub Cmd_quitClick()

Unload Me

End Sub