如何成比例的缩放窗体？谁又好方法..收买。。

[xiayule]

如何成比例的缩放窗体的width和height,并且，窗体里有picbox，textbox等空间，让他们跟着窗体的变化也成比例放大或缩小。

Private Sub Form_Resize()
Dim lngScale As Long
' With Form
'
' End With

With fraVender
lngScale = .Width / .Height
.Width = Me.ScaleWidth
.Height = .Width / lngScale
End With

With picMiddle
lngScale = .Width / .Height
.Move 0, fraVender.Top + fraVender.Height + 10, Me.ScaleWidth, .Width / lngScale
End With

With DataGrd
lngScale = .Width / .Height
.Move 0, picMiddle.Top + picMiddle.Height + 10, Me.ScaleWidth, .Width / lngScale
End With

With picFoot
lngScale = .Width / .Height
.Move 0, DataGrd.Top + DataGrd.Height + 10, Me.ScaleWidth, .Width / lngScale
End With
End Sub

我是这样做的，达不到想要得结果，我觉得还差的远，高手指点一下。。。先谢了