Aplicacion en Visual Basic de Botones de opcion

esta es la solucion en Visual Basic del Problema de los tipos de cliente. unicamente el metodo

Private Sub CmdAceptar_Click()

Txtsubtotal = Val(Txtunidades) * Val(Txtprecio)

If (Optfrecuente) Then

   Txtdescuento = Val(Txtsubtotal) * 0.1

ElseIf (Optregular) Then

   Txtdescuento = Val(Txtsubtotal) * 0.07

ElseIf (Optmembresia) Then   Txtdescuento = Val(Txtsubtotal) * 0.2ElseIf (Optespecial) Then   Txtdescuento = Val(Txtespecial) * 0.25End IfTxttotal = Val(Txtsubtotal) - Val(Txtdescuento)End Sub Private Sub Cmdnuevo_Click()

Txtunidades = " "

Txtprecio = " "

Txtsubtotal = " "

Txtdescuento = " "

Txtdescuento = " "

Txttotal = " "

 

End Sub