VB HitungFaktur

 Public Class frmHitungFaktur

    Private Sub btnHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHitung.Click

        Dim subTotal As Decimal = CDec(txtSubTotal.Text)

        Dim diskonPercent As Decimal = 0.25D

        Dim diskonDollar As Decimal = subTotal * diskonPercent

        Dim total As Decimal = subTotal - diskonDollar

        txtDiskonPercent.Text = FormatPercent(diskonPercent, 1)

        txtDiskonDollar.Text = FormatCurrency(diskonDollar)

        txtTotal.Text = FormatCurrency(total)

        txtSubTotal.Select()

    End Sub

    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click

        Close()

    End Sub

End Class