REDIMENSIONAMENTO DO FORM

SIRIOUS 21/10/2017 13:15:06
#477292

Olá pessoal.
Vi uma dica neste site sobre redimensionamento do form e dos objetos nele contidos:

Private Sub Form_Resize ( )
Text1.Width = form1.Width / 2
Text1.Left = form1.Width / 4
Text1.Top = form1.Height /3
End Sub

Com um textbox no form, funciona corretamente, redimensionando e voltando ao tamanho natural do form.
Com mais de um objeto, não funciona (ex.: Commandbutton, Label, etc.
Alguém saberia como codificar a função para diversos controles no form?

Agradeço.
Sirious