Perhitungan harga setelah diskon 10% tanpa keypress (Tugas 2.1)

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 Label1_Click()

End Sub