DATA SETELAH DISKON 10% TANPA KEYPRESS

Private Sub cmdhitung_Click()
textdis = Val(textha) * 0.1
texthk = Val(textha) - Val(textdis)
End Sub

Private Sub cmdquit_Click()
Unload Me
End Sub

Private Sub cmdulangi_Click()
textha = ""
textdis = ""
texthk = ""
End Sub