Início
Com a valorosa colaboração do Sr. Alexandre Neves montei essa pequena função para centralizar controles, a princípio está para formulários, mas pode ser editada para relatórios também.
Em um novo módulo insira:
Dim Ctl As Control
Public Function CentralizaControles(frm As Form, ParamArray Ctls()) As Variant
For Each Ctl In Ctls
Ctl.Left = (frm.Width / 2) - (Ctl.Width / 2)
Next Ctl
End Function
No evento ao Carregar do formulário:
Call CentralizaControles(Me, Texto0, lista3, Comando2)
Me faz referência ao formulário.
Em um novo módulo insira:
Dim Ctl As Control
Public Function CentralizaControles(frm As Form, ParamArray Ctls()) As Variant
For Each Ctl In Ctls
Ctl.Left = (frm.Width / 2) - (Ctl.Width / 2)
Next Ctl
End Function
No evento ao Carregar do formulário:
Call CentralizaControles(Me, Texto0, lista3, Comando2)
Me faz referência ao formulário.
