Private Sub btnhapus_Click(sender As Object, e As EventArgs) Handles btnhapus.Click
        cbbanktransfer.Text = ""
        cbproduct.Text = ""
        cbjenislensa.Text = ""
        txtdiskon.Text = ""
        txtproduct.Text = ""
        txtharga.Text = ""
        txtalamat.Text = ""
        txttelepon.Text = ""
        txtnamapelanggan.Text = ""
        txtmetode.Text = ""
        txttotal.Text = ""
        txtmuka.Text = ""
        txtsisa.Text = ""
    End Sub