سلام کار خیلی ساده است گه شما می تونید
با این کد این کار را انجام دهید.
فقط یک دکمه و 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