RUTINAS PARA HACER UN PROGRAMA DE 

TEXTO EN VISUAL BASIC

Private Sub Option1_Click()                    INICIO DE RUTINA

Text1.Font.Bold = True                            NEGRITA

End Sub                                                     FIN DE RUTINA

Private Sub Option2_Click()                  

Text1.Font.Italic = True                          CURSIVA

End Sub

Private Sub Option3_Click()

Text1.ForeColor = vbRed                        COLOR LETRA

End Sub

Private Sub Option4_Click()

Text1.BackColor = vbYellow                   COLOR FONDO

End Sub

Private Sub Option5_Click()

Text1.Font.Underline = True                     SUBRAYADO

End Sub

Private Sub Option6_Click()

Text1.Text = UCase(Text1.Text)                MAYUSCULA

End Sub

Private Sub Option7_Click()

Text1.Text = LCase(Text1.Text)             MINUSCULA

End Sub

Private Sub Command1_Click()

End                                                            SALIR

End Sub