2.1 Perhitungan harga setelah diskon 10% tanpa keypress

T.2.1

Private Sub hitung_Click()

TXTDN = Val(TXTHA) * 0.1

TXTHR = Val(TXTHA) - Val(TXTDN)

End Sub

Private Sub reset_Click()

TXTHA = ""

TXTDN = ""

TXTHR = ""

TXTHA.SetFocus

End Sub

Private Sub quit_Click()

Unload Me

End Sub