VBA，窗体和窗体内的控件大小的自动适配（未完成）

1如何让控件，自适应窗体的大小？

Option Explicit

Dim w, h
Private Sub Form_resize()
Dim bilih, biliw, i
bilih = Form1.Height / h
biliw = Form1.Width / w

For i = 0 To 2
Text1(i).Top = Int(bilih * Text1(i).Top)
Text1(i).Height = Int(bilih * Text1(i).Height)
Text1(i).Left = Int(biliw * Text1(i).Left)
Text1(i).Width = Int(biliw * Text1(i).Width)
Next
w = Form1.Width
h = Form1.Height
End Sub

Private Sub Form_Load()
w = Form1.Width
h = Form1.Height
End Sub

2 如何让窗体，可以设置 各种对齐方式

比如 窗体的某一部分 自适应大小 比如listbox

窗体的其他部分不变大小，比如commandbutton

3 其他UI的调整方式