Perhitungan harga setelah diskon 10 meggunakan keypress (2.2)

Private Sub cmdhitung_Click()
txtdis = Val(txtha) * 0.1
txtak = Val(txtha) - (txtdis)
End Sub

Private Sub cmdbatal_Click()
txtha = ""
txtdis = ""
txtak = ""
txtha.SetFocus
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub


Private Sub txtha_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtdis = Val(txtha) * 0.1
txtak = Val(txtha) - (txtdis)
End If
End Sub