Public Class radiobutton




Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load



End Sub



Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblventa.Click

Dim venta As Double

venta = txtventa.tex

'determinar que boton eligio

If rdbsindescuento.checked = True Then

txtdescuento.text = 0

txtcobro.txt = venta

End If

rdbdescuento5.checked=True then

txtcobro.text = venta * 0.95

txtdescuento.text = venta * 0.95











End If

If rdb descuento10 .chscked=true rhen

Public Class radiobutton




Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load



End Sub



Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblventa.Click

Dim venta As Double

venta = txtventa.tex

'determinar que boton eligio

If rdbsindescuento.checked = True Then

txtdescuento.text = 0

txtcobro.txt = venta

End If

rdbdescuento5.checked=True then

txtcobro.text = venta * 0.95

txtdescuento.text = venta * 0.95











End If

If rdb descuento10 .chscked=true rhen