De la caja de herramientas agregar un groupbox
Agregar 4 radiobutton en groupbox
Private Sub btnEnviar_Click(sender As Object, e As EventArgs) Handles btnEnviar.Click
Dim cad As String
If RadioButton3.Checked = True Then
cad = "Soltero"
End If
If RadioButton4.Checked = True Then
cad = "Casado"
End If
If RadioButton5.Checked = True Then
cad = "Divorciado"
End If
If RadioButton6.Checked = True Then
cad = "Viudo"
End If
MessageBox.Show("Su estado civil es " + cad)
End Sub
No hay comentarios:
Publicar un comentario