Controls in the form automatically change the size with the form

During development, developers often need to control the widget size to adapt to the window size, so that the software is proportional and coordinated under different resolutions.
So how can we make the controls in the form automatically change the size with the form?
I think there is an original method that is very useful, so that the form cannot be maximized: for example, the Apsara catering software .......
Of course, this method is a detour. The developed software will certainly not look good.
Well, let's introduce the following very useful Model. It's a professional Model.
--------------------------------------------------------------------------------
Option Explicit
Private FormOldWidth As Long
'Save the original width of the form.
Private FormOldHeight As Long
'Save the original height of the form.
'Call this function before calling ResizeForm
Public Sub ResizeInit (FormName As Form)
Dim Obj As Control
FormOldWidth = FormName. ScaleWidth
FormOldHeight = FormName. ScaleHeight
On Error Resume Next
For Each Obj In FormName
Obj. Tag = Obj. Left & "& Obj. Top &" & Obj. Width & "& Obj. Height &""
Next Obj
On Error GoTo 0
End Sub
'Proportionally change the size of each component in the form. Call the ReSizeInit function before calling ReSizeForm.
Public Sub ResizeForm (FormName As Form)
Dim Pos (4) As Double
Dim I As Long, TempPos As Long, StartPos As Long
Dim Obj As Control
Dim ScaleX As Double, ScaleY As Double

ScaleX = FormName. ScaleWidth/FormOldWidth
'Save the scaling ratio of the form width
ScaleY = FormName. ScaleHeight/FormOldHeight
'Save the zoom ratio of the form height
On Error Resume Next
For Each Obj In FormName
StartPos = 1