Input harga photocopy

Public Class Form1

    Private Sub BtnProses_Click(sender As Object, e As EventArgs) Handles BtnProses.Click
        If Jlh_lembar.Text >= 200 Then
            Hrg_Perlembar.Text = "90"
        End If

        To_har.Text = Val(Hrg_Perlembar.Text) * Val(Jlh_lembar.Text)

        If To_har.Text >= "500000" Then
            Diskon.Text = 0.15 * To_har.Text
        Else
            Diskon.Text = 0

            Pembayaran.Text = Val(To_har.Text - Diskon.Text)


        End If
    End Sub

    Private Sub BtnHapus_Click(sender As Object, e As EventArgs) Handles BtnHapus.Click
        Jlh_lembar.Text = ""
        Hrg_Perlembar.Text = ""
        To_har.Text = ""
        Diskon.Text = ""
        Pembayaran.Text = ""
    End Sub

    Private Sub BtnKeluar_Click(sender As Object, e As EventArgs) Handles BtnKeluar.Click
        End
    End Sub
End Class