[Resolvido]tipo de letra ( Form´s )

E se colocar no evento "Ao abrir" do formulário algo como:

Me.NomeDoControle.FontName = "NomeDaFonte"

Pode fazer um loop para todos os controles, caso sejam muitos:

Dim C As Control

For Each C In Me.Controls

If C.ControlType = acTextBox Or C.ControlType = acComboBox Or C.ControlType = acListBox Then
C.FontName = "NomeDaFonte"
End If

Next C

Naturalmente, tem que ter a fonte instalada no computador. Caso seja uma fonte não padrão do Windows, pode colocar uma cópia dela na pasta do bd e programá-lo para copiar a fonte para a pasta Fontes do Windows caso não a tenha lá.

ok... obrigado
No entanto como são alguns controles, disse-me que e como podia fazer, no entanto, onde coloco o código ?!? para todos os Forms ? ou tera de ser Form by Form ?!?

Pode colocar isso em uma função global, em um módulo, e chamar no "Ao carregar" de cada formulário, caso seja necessário:

Public Function Maiuscula()

Dim C As Control

For Each C In Screen.ActiveForm.Controls

If C.ControlType = acTextBox Or C.ControlType = acComboBox Or C.ControlType = acListBox Then
C.FontName = "NomeDaFonte"
End If

Next C

End Function

Ao abrir o form surge o seguinte erro:
Run-time error 2475: Introduziu uma expressão que requer que a janela activa seja um formulário
O que estou a fazer de errado ?
Obrigado.

Você colocou a função acima em um módulo? Colocou Call Maiuscula no "Ao carregar" do formulário?

Correcto, coloquei a função num módulo, apenas alterei o nome de "Maiusculas" para "TipodeLetra", e chamei a função no form ao carregar (Load).
Quando passo para modo de estrutura funciona mas após fechar ao reabrir surge o erro acima descrito.

Tente o seguinte: coloque a chamada no evento "No timer", defina o intervalo do cronômetro para algo como 100 e pode zerar o intervalo após a chamada da função:

Call TipodeLetra
TimerInterval = 0

Resolvido.
Obrigado !

Tente criar a função a receber dois argumentos: nome do formulário e tipo de letra

Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.