haremos un ejercicio parecido ala practica 12, le pondremos negrita, cursiva y subrayado, solo que ahora agregaremos 3 opciones mas para cambiar el color del texto las que pondre

seran rojo, verde y azul, asi como su boton salir.

como veras en los check puse los estilos como el pasado y en los optionbutton el color que sera de la letra

nota por si lo olvidaste ( los nombres de los cuadros de verificacion se cambian en la opcion caption en la barra de propiedades)

ok bueno pondre los mismos codigos en check que el pasado para negrita, cursiva y subrayado es desir en

negrita:

Private Sub Check1_Click()
If Check1.Value = 1 Then
Text1.FontBold = True
End If
End Sub

en cursiva:
Private Sub Check2_Click()
If Check2.Value = 1 Then
Text1.FontItalic = True
End If

en subrayado

Private Sub Check3_Click()
If Check1.Value = 1 Then
Text1.FontUnderline = True
End If

y en los siguientes para que me de el color utilizare option en ves check es desir:

ROJO:
Private Sub Option1_Click()
If Option1.Value = True Then
Text1.ForeColor = vbRed
End If
End Sub

VERDE:
Private Sub Option2_Click()
If Option2.Value = True Then
Text1.ForeColor = vbGreen
End If
End Sub

AZUL:
Private Sub Option3_Click()
If Option3.Value = True Then
Text1.ForeColor = vbBlue
End If
End Sub

bueno ahora ejecutare el programa (f5) para ver que funcione correctamente de tal manera que me quedara de la siguiente manera: