Olá amigos, tudo bem?

 

Estou com uma seguinte dúvida: Eu quero que o usuário possa alterar a cor das fontes e as prórpias fontes do sistema inteiro, para isso, criei 2 variáveis do tipo Object, uma para armazenar cores e a outra para armazenar a fonte. O problema é que, quando defino o objeto commondialog1.showfont ou commondialog1.showcolor, não sei como manipular as variáveis para armazenar os valores do commondialog.

Estou fazendo o seguinte:

Global Fonte as Object
Global CorTexo as Object

 

Private Sub CommandButton1_Click
CommonDialog1.ShowFont
Set Fonte = CommonDialog1.FontName

(O erro é identificado no ".FontName")

 

Private Sub CommandButton2_Click
commondialog1.showcolor
Cor Texto = commandialog1.color

(Mesma coisa do outro, o erro aparece no .Color)

 

Private Sub lblTexto_Change()
lbltexto.FontName = Fonte
lbltexto.forecolor = Cor Texto

Jah tentei de tudo quanto que é jeito e não descubro como manipular a variável object e formatar as fontes e cores.

 

Fortes Abraços e Obrigado.