Olhe, o meu está funcionando perfeitamente, só precisa adaptar ao seu modo, com as váriveis corretamente, (os erros devem ser isto) porque minhas váriveis que uso na função são publicas.

Veja

Public sRESIZE As Form         ' variavel que leva o nome do formulário

Public oOBJ As Object           ' variavel do nome de cada objeto

Public lHEIGHT As Long          ' variavel do valor da divisão da resolução do monitor

Public lWIDTH As Long           ' idem da horizontal

 

Agora as outras são locais e já estão dentro da função.

 

Voce deu valor as variaveis do tipo Long? Pegando a resolução da tela?

Senão?????

 

vlu//

 

 

Mais uma coisa determinados controles não alteram algumas propriedades em tempo de execução, então voce tem que ver isto, e pular, veja meu código.

Exemplo:   "dta" significa DataControl

               "dbg"             DbGrid

               "cbo"             ComboBox

Assim por diante, verifique os seu se existe um padrão no inicio dos nomes dos controles.

 

vlu//

 

vlu//