Amigo, complicado, mas dá pra fazer, primeiro voce tem pegar a resolução da tela, tem uma dica aqui no vbweb pra fazer isto, depois tem várias formas de fazer eu faço colocando a resolução em uma variavel publica tipo long, e se o valor for diferente de 1, chamo uma função do módulo que ajusta os controles, se voce não conseguir algo melhor posso te passar a função, mas veja pra fazer isto voce tem que ter um padrão no nome dos controles, por que determinados controles em tempo de execução, não aceitam uma ou outra propriedade e alguns não aceitam nenhuma.

Mais ou menos isto:

Todos os TextBox começar o nome com txt

Botões com btn

Menus com mnu

Combos com cbo

Assim por diante.

O padrão vc faz não importa.

 

vlu//

Ramos,

Por que que vc ao invez de padronizar dessa forma o nome dos controles, vc nao pega os tipos dele nessa funcao...

 

Dim c As Object

For Each c In Me.Controls

    Select Case Type Of c

        Case Textbox

            ' Codigo para Textbox

        Case Combobox

            ' Codigo para Combobox

        ' Assim por diante...

    End Select

Next c

 

Assim fica mais facil e mais portavel seu codigo...