ترازبندی اشیا در ویژوال

سلام کار خیلی ساده است گه شما می تونید
با این کد این کار را انجام دهید.
فقط یک دکمه و 2 تا تکس باکس بزارید روی صفحه

 Public Function Size(ByVal NumSize As String, ByVal Numberic As Long) As Long

Size = Numberic * NumSize / 100

End Function





Private Sub Form_Resize()

Command1.Width = Size(10, Width)

Command1.Height = Size(10, Height)

Command1.Left = Size(10, Width)

Command1.Top = Size(10, Height)





Text1.Width = Size(10, Width)

Text1.Height = Size(10, Height)

Text1.Left = Size(20.5, Width)

Text1.Top = Size(10, Height)





Text2.Width = Size(10, Width)

Text2.Height = Size(10, Height)

Text2.Left = Size(10, Width)

Text2.Top = Size(22, Height)

End Sub