Aplikasi perhitungan harga not with keypress

Private Sub Cmdhitung_Click()
txtdis = Val(txtha) * 0.1
txthak = Val(txtha) - Val(txtdis)
End Sub


Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdulangi_Click()
txtha = ""
txtdis = ""
txthak = ""
'ahmadhilal
txtha.SetFocus
End Sub