Acerca de vb. Haga clic en el botón. surgir

Primero agregue un control CommonDialog, un control de comando y un control de texto

Simplemente copie el siguiente código

Private Sub Command1_Click()

CommonDialog1.Action = 3

Text1.ForeColor = CommonDialog1.Color

CommonDialog1.Action = 4

Si CommonDialog1.FontName <> "" Entonces

Text1.FontName = CommonDialog1.FontName

Text1.FontSize = CommonDialog1.FontSize

Text1.FontItalic = CommonDialog1.FontItalic

Fin si< / p>

End Sub

¡Espero que te ayude!