Tugas 2.1 Perhitungan Harga Setelah Diskon 10% tanpa keypress

Private Sub HITUNG_Click()

TXTDS = Val(TXTHA) * 0.1

TXTHAK = Val(TXTHA) - Val(TXTDS)

End Sub

Private Sub QUIT_Click()

Unload Me

End Sub

Private Sub ULANGI_Click()

TXTHA = ""

TXTDS = ""

TXTHAK = ""

TXTHA.SetFocus

End Sub