Pídale al maestro de la computadora que escriba el código para esta pregunta (programación VB)

Sub privado Form_Load()

Para i = 0 a Screen.FontCount - 1

Si Asc(Screen.Fonts(i)) < 0 Entonces List1 .AddItem Screen.Fonts(i)

Siguiente i

Imagen1.FontSize = 14

List1.FontSize = 16

End Sub

Sub lista privada1_Click()

Imagen1.Font = Lista1.Text

Imagen1.Imprimir Lista1.Text

Fin Subp>