[Resolvido]Função para Centralizar Objetos

Bom dia!

Montei essa simples função para centralizar controles na largura do formulário:

Public Function CentralizaControle(frm As Form, ctl As Control)
   ctl.Left = (frm.Width / 2) - (ctl.Width / 2)
End Function

No evento ao carregar do form escrevo assim:

Call CentralizaControle(Me, NomeDoControle)

Como montar essa função para inserir mais nomes de controles sem ter que inserir mais variáveis na estrutura da mesma?, ex:

Public Function CentralizaControle(frm As Form, ctl1 As Control, ctl2 As Control, ctl3 As Control, ctl4 As Control, ctl5 As Control)

Até porque pode-se precisar centralizar muitos controles.

Muito obrigado

Olá Leandro, não sei se entendi direito a tua ideia, mas quando quero centralizar todos os controles do formulário, uso essa função em um módulo:
Dim ctl As Control
For Each ctl In argFrm.Controls
With ctl

Select Case .ControlType

Case acTextBox 'Centraliza as Caixas de Texto
.TextAlign = 2

Case acComboBox 'Centraliza as Caixas de combinação
.TextAlign = 2

End Select
End With
Next ctl

E no evento atual do formulário chamo a função:
Call CentControle(Form_NomeDoFormulário)

Olá Beto, obrigado pela resposta mas não é centralizar o conteúdo do controle, mas o controle na seção do formulário, falhei na explicação.

Boa tarde,
Dim Ctl As control
Public Function CentralizaControles(frm As Form,ParamArray Ctls() As Control)
For Each Ctl In Ctls
ctl.Left = (frm.Width / 2) - (ctl.Width / 2)
Next Ctl
End Function

Alexandre, muito obrigado, houve uma pequena mudança mas sua resposta foi muito oportuna!!!

Ficou assim:

Código:


Public Function CentralizaControles(frm As Form, ParamArray Ctls()) As Variant
Dim Ctl As Control
For Each Ctl In frm.Controls
  Ctl.Left = (frm.Width / 2) - (Ctl.Width / 2)
Next Ctl
End Function


Muito obrigado