Código de programación VB para preguntas de opción múltiple.

Cree un control Etiqueta, dos controles Opción y un control Comando en el formulario

El código es el siguiente:

Private Sub Command1_Click()

Si Option1.Value = True u Option2.Value = True Entonces

MsgBox "¡INCREÍBLE!"

Fin si

Fin Sub

Private Sub Form_Load()

Label1.Caption = "¿De dónde eres?"

Option1.Caption = "A. Mars"

Opción2 .Caption = "B. Luna"

Comando1.Caption = "Aceptar"

Fin Sub