Função para alinhamento vertical do texto da label

[costaribeiro]

Boa tarde, pessoal.

Criei um código para centralizar verticalmente o texto de uma label. Entretanto, não sei criar uma função para que se possa usar o mesmo código para outras labels.

Esse é o código:

Código: Selecionar todos

Private sub AlinhamentoVerticalLabel ()
Me.Label1.Top = (Width - Me.Label1.Width) / 2
Me.Label1.Top = (Height - Me.Label1.Height) / 2
Me.Label1.TextAlign = fmTextAlignCenter
End sub

Onde o resultado para aplicação fique do tipo:

AlinhamentoVerticalLabel (me.Label1.text)

Não sei se é possível. Alguém pode ajudar?

Obrigado.