perhitungan diskon

Private Sub cmdhitung_Click()
txtdiskon = Val(txtawal) * 0.1
txtakhir = Val(txtawal) - Val(txtdiskon)

End Sub

Private Sub cmdquit_Click()
End

End Sub

Private Sub cmdulangi_Click()
txtawal.SetFocus
txtawal = ""
txtdiskon = ""
txtakhir = ""

End Sub