Amigo para eso solo debes utilizar las propiedades
que se muestran a continuacion :
Estas modifican tipo de letra y tamaños el numero lo pones tu
text1.Font.Name = 5
text1..Font.Size = 6
text1.Font.Italic = 9
text1.Font.Underline = 5
text1.Font.Strikethrough = 6
text1.ForeColor = 8
Este es para el color, es por codigo binario
este lo tomas de la paleta de colores
text1.BackColor = &HFFFFFF
Esta funcion muestra el cuadro de modificar
para que te diviertas un rato
Private Sub modificar_Click()
base.CancelError = True
On Error GoTo ManejoError:
base.Flags = cdlCFEffects Or cdlCFBoth
base.ShowFont
muestra.Font.Name = base.FontName
muestra.Font.Size = base.FontSize
muestra.Font.Italic = base.FontItalic
muestra.Font.Underline = base.FontUnderline
muestra.Font.Strikethrough = base.FontStrikethru
muestra.ForeColor = base.Color
Exit Sub
ManejoError:
MsgBox "No se cambió la fuente"
End Sub
Espero que sea esto lo que buscabas, pero informanos
por ahi esta bien. bye
