Entra a Visual Basic y realiza el siguiente formulario
Cambia el nombre a los optionButton por OptAmarillo, optAzul y OptRosado
Cambia el nombre a los CheckBox por ChkPeliculas, ChkLibros y ChkInternet
Ahora digita el siguiente código
Private Sub optAmarillo_Click()
Me.BackColor = vbYellow
End Sub
Private Sub optAzul_Click()
Me.BackColor = vbBlue
End Sub
Private Sub optRosado_Click()
Me.BackColor = RGB(255, 192, 203)
End Sub
Private Sub chkPeliculas_Click()
If ChkPeliculas.Value = 1 Then
MsgBox "Has seleccionado: PELÍCULAS", _
vbInformation, "INTERÉS SELECCIONADO"
End If
End Sub
Private Sub chkLibros_Click()
If Chklibros.Value = 1 Then
MsgBox "Has seleccionado: LIBROS", _
vbInformation, "INTERÉS SELECCIONADO"
End If
End Sub
Private Sub chkInternet_Click()
If Chkinternet.Value = 1 Then
MsgBox "Has seleccionado: INTERNET", _
vbInformation, "INTERÉS SELECCIONADO"
End If
End Sub