vb控件和窗口变化的问题

做了个系统  界面没有最大化的时候比例搭配都很漂亮
一最大化的话就影响美观  好丑怎么解决呢

注：已经用了控件随窗口的最大化而变化的代码，但是最大化之后控件都变的好大.... --------------------编程问答-------------------- 我也遇到了类似的问题，楼主能不能把控件随窗口的最大化而变化的代码贴出来，学习一下 --------------------编程问答-------------------- Option Explicit

Private Type CtlSize
Ctl As Control
X As Long
Y As Long
W As Long
H As Long
End Type
Dim sCtl() As CtlSize

Private Sub Form_Load()

Dim srcFrmScaleMode As Long
srcFrmScaleMode = Me.ScaleMode
Me.ScaleMode = 0
Me.ScaleWidth = 1000
Me.ScaleHeight = 1000
ReDim sCtl(65536)
Dim i As Control
Dim ctlCount As Long
For Each i In Me.Controls

    If (TypeName(i) <> "Timer") And (TypeName(i) <> "Menu") Then
        Set sCtl(ctlCount).Ctl = i
        sCtl(ctlCount).X = i.Left
            sCtl(ctlCount).Y = i.Top
           sCtl(ctlCount).W = i.Width
        sCtl(ctlCount).H = i.Height
        ctlCount = ctlCount + 1
    End If

Next
ReDim Preserve sCtl(ctlCount - 1)
Me.ScaleMode = srcFrmScaleMode
End Sub

Private Sub Form_Resize()
On Error Resume Next
Dim srcFrmScaleMode As Long
srcFrmScaleMode = Me.ScaleMode
Me.ScaleMode = 0
Me.ScaleWidth = 1000
Me.ScaleHeight = 1000
Dim i As Long
For i = 0 To UBound(sCtl)
    sCtl(i).Ctl.Left = sCtl(i).X
    sCtl(i).Ctl.Top = sCtl(i).Y
    sCtl(i).Ctl.Height = sCtl(i).H
    sCtl(i).Ctl.Width = sCtl(i).W
Next
Me.ScaleMode = srcFrmScaleMode

End Sub --------------------编程问答-------------------- 顶上云霄

补充：VB ,  控件