各路大神帮忙，这个如何实现控件随着窗口大小按比例变化怎么用数组

这还要用数组？

用数组存所有控件和窗体的四个属性（left top height width）的初始比例，等主窗体的大小变化后，在把窗体乘以比例的值赋值给控件对应的属性。主要是遍历窗体内的所有控件，遍历控件的顺序每次都是一样的。其他很好理解

发了两个被吞了……

if objctl.name=（没有那个四个属性中的任意一个的对象，比如菜单menu）.name or 其他的 then
exit sub
end if

所有控件的外观属性与主窗体挂钩例如
text.height=form.height-10
text.width=form.width*0.2

在实际运用中，窗体大小发生改变时，控件大小并不改变，只是位置布局有变化而已。
如果是一张图片做底图，窗体大小改变时，底图大小就要随动。
Private Sub Form_Resize() '　控件随动程序
On Error Resume Next
Dim n1 As Long, n2 As Long
'　窗体最小尺寸【800像素×450像素】控制
n1 = Me.Width: n2 = Me.Height
n1 = IIf(n1 < 12000, 12000, n1)
n2 = IIf(n2 < 6750, 6750, n2)
Me.Width = n1: Me.Height = n2
n1 = Me.ScaleWidth ' n1 = 11760
n2 = Me.ScaleHeight ' n2 = 6180
'　控件尺寸和位置
Image1.Left = 0: Image1.Top
Image1.Width = n1: Image1.Height = n2
'　……
End Sub

类似这样的操作界面，其窗体可见的最小尺寸为【818像素×450像素】，当窗体尺寸发生改变时，有工具栏条形底图的宽度、【退出】按钮的左边界、表格的宽度和高度、框架的左边界和高度、【上一题】和【下一题】按钮的（Top）上边界，共八个参数发生改变即可，其余的控件根本不需要进行大小和位置的调整。