¿? Center ?¿

Følgende vil centrere Text1 på midten af Frm\'s klientområde.

with Frm do
  text1.move (ScaleWidth-Text1.Width)\\2, (ScaleHeight-Text1.Height)\\2
end with

Udføres i Frm_Resize

jammen kommer det ikke bare til at ligge oven på hinanden så?

Private Sub Form_Resize()
With Form1
  Label1.Move (ScaleWidth - Label1.Width) \\ 2, (ScaleHeight - Label1.Height) \\ 2
    Label2.Move (ScaleWidth + Label1.Width) \\ 2, (ScaleHeight - Label1.Height) \\ 2
End With
End Sub

Det virker ikke ?

UPS.. Jeg kom til at Acceptere, DOH

Hvis du har flere kontroller, så skal du udregne den samlede højde og bredde og bruge den i positioneringen.

Alternativt kan du placere dem på en Frame med BorderStyle None således, at det fylder præcis det, som det skal. Denne frame kan du så centrere på min måde.

Fik du det til at funke?

nope

Hvad har du af kontroller (liste)?