Private Sub rbcash_CheckedChanged(sender As Object, e As EventArgs) Handles rbcash.CheckedChanged
        txtmetode.Text = rbcash.Text
    End Sub

    Private Sub cbbanktransfer_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbbanktransfer.SelectedIndexChanged
        txtmetode.Text = cbbanktransfer.Text
    End Sub

    Private Sub rbcod_CheckedChanged(sender As Object, e As EventArgs) Handles rbcod.CheckedChanged
        txtmetode.Text = rbcod.Text
    End Sub

    Private Sub rbbank_CheckedChanged(sender As Object, e As EventArgs) Handles rbbank.CheckedChanged
        txtmetode.Text = rbbank.Text
    End Sub

    Private Sub rbovo_CheckedChanged(sender As Object, e As EventArgs) Handles rbovo.CheckedChanged
        txtmetode.Text = rbovo.Text

        If rbovo.Checked = True Then
            txtdiskon.Text = (txttotal.Text * 20 / 100)
        Else
            txtdiskon.Text = 0
        End If
        txtsisa.Text = (txttotal.Text - txtdiskon.Text)
    End Sub