tugas 2.1 perhitungan harga setelah diskon 10% tidak menggunakan keypress

Private Sub Cmdhitung_Click()

Txtdis = Val(Txtha) * 0.1

Txtak = Val(Txtha) - Val(Txtdis)

End Sub

Private Sub Cmdquit_Click()

End

End Sub

Private Sub Cmdulangi_Click()

Txtha = ""

Txtdis = ""

Txtak = ""

Txtha.SetFocus

End Sub