Se hará una aplicación compuesta por ocho botones de comando. Cada botón de comando modificará una de las propiedades del objeto Font de una etiqueta (Label) que estará colocada en la parte más arriba de los botones de comando.
En un nuevo proyecto insertar una Etiqueta en la parte más arriba del formulario y en el centro
En la propiedad Caption escribir TEXTO DE MUESTRA.En la propiedad AutoSize establecer el valor True
Insertar ocho botones de comando del mismo tamaño uno al lado del otro y debajo de la Etiqueta.
Seleccionar el primer botón de comando y en la propiedad Caption escribir Negrita
Seleccionar el segundo botón de comando y en la propiedad Caption escribir Cursiva
Seleccionar el tercer botón de comando y en la propiedad Caption escribir Subrayado
Seleccionar el cuarto botón de comando y en la propiedad Caption escribir Tachado
Seleccionar el quinto botón de comando y en la propiedad Caption escribir Tamaño
Seleccionar el sexto botón de comando y en la propiedad Caption escribir Fuente
Seleccionar el séptimo botón de comando y en la propiedad Caption escribir Normal
Seleccionar el octavo botón de comando y en la propiedad Caption escribir Ne/Cu/Su
En el evento click de cada uno de los botones de comando codifiquemos para que cuando se haga clic sobre ellos este realice la operación indicada en su propiedad Caption
Hacer doble clic sobre el primer botón de comando (el que tiene por Texto Negrita) y en el evento click escribir la siguiente línea de código.
Label1.Font.Bold= True
Hacer doble clic sobre el segundo botón de comando (el que tiene por Texto Negrita) y en el evento click escribir la siguiente línea de código.
Label1.Font.Italic= True
Hacer doble clic sobre el tercer botón de comando (el que tiene por Texto Negrita) y en el evento click escribir la siguiente línea de código.
Label1.Font.Underline= True
Hacer doble clic sobre el cuarto botón de comando (el que tiene por Texto Negrita) y en el evento click escribir la siguiente línea de código.
Label1.Font.Strikethrough= True

Dentro del evento click del botón tamaño
Dim valor As Integer
On Error Resume Next
Valor=InputBox (“Introduzca el tamaño de la letra”, “Tamaño de letra”)
Label1.Font.Size=valor

Dentro del evento click del botón Fuente
Dim TipoAs String
On Error Resume Next
Tipo=InputBox (“Introduzca nombre del tipo de letra”, “Tipo de letra”)
Label1.Font.Name-=Tipo


Dentro del evento Click del botón Normal:
Label1.Font.Bold = False
Label1.Font.Italic = False
Label1.Font.Underline = False
Label1.Font.Strikethrough = False
Label1.Font.Name = "MS Sans Serif"'
Label1.Font.Size = 8
Dentro del evento Click del botón Ne/Cu/Su (Negrita/Cursiva/Subrayado=
Label1.Font.Bold = True
Label1.Font.Italic = True
Label1.Font.Underline = True