Io uso la seguente routine (naturalmente si deve inserire nella Frm una CommonDialog e deve essere selezionata la frase da cambiare):
codice:
'Modifica le fonts e cambia colore al testo Selezionato - Comando di menù:
Public Sub ModFonts()

    Dim strFrmAttFont As String
    Dim y As Long
    strFrmAttFont = FrmMAIN.ActiveForm.Name
    
    Select Case strFrmAttFont
        Case "FrmAA"
            With FrmAA.CommonDialogAA
                .CancelError = True
            On Error GoTo ErrHandler
                .Flags = cdlCFForceFontExist Or cdlCFEffects Or cdlCFBoth Or cdlCFScalableOnly Or cdlCFLimitSize
                .min = 8
                .max = 24
                .FontName = "Microsoft Sans Serif"
                .FontSize = 8
                .ShowFont
            End With
ErrHandler:
            ' é stato scelto Annulla:
            If Err.Number = 32755 Then
                Exit Sub
            End If
            
            ' Imposta il cambiamento del carattere e del colore:
            With FrmAA.RTxtBox2
               .SelColor = FrmAA.CommonDialogAA.Color
               .SelFontName = FrmAA.CommonDialogAA.FontName
               .SelFontSize = FrmAA.CommonDialogAA.FontSize
               .SelBold = FrmAA.CommonDialogAA.FontBold
               .SelItalic = FrmAA.CommonDialogAA.FontItalic
               .SelStrikeThru = FrmAA.CommonDialogAA.FontStrikethru
               .SelUnderline = FrmAA.CommonDialogAA.FontUnderline
            End With
La routine è ideata per la presenza di più Frm contenute in una FrmMain.