Programación VB juntos

'Crea la Opción1, la Opción2 y la Opción3 en el marco. Luego copie el siguiente código en el programa.

'¿Text1 tiene el atributo FontUnderline? ¿Qué versión de VB estás usando? 6.0

Private Sub Option1_Click() 'Underline | Underline

Text1.Font.Underline = True

Text1.Font. Tachado = False

End Sub

Private Sub Option2_Click() 'Línea media|Tachado

Text1.Font.Strikethrough = True

Texto1 .Font.Underline = False

End Sub

Private Sub Option3_Click() 'Cancelar todas las líneas

Text1.Font.Underline = False

Text1.Font.Strikethrough = False

Fin Sub