控件随窗体变化问题，高手来查错

Dim mewidth, mehight, treeviewwidth, treeviewhight, webwidth, webhight, picture1width, picture1hight'分别为打开窗体时form宽， form高，tree宽，tree高...
Dim treew, treeh, webw, webh, picturew, pictureh'所点比例

Private Sub Form_Load()
mewidth = Form3.Width
mehight = Form3.Height
treeviewwidth = TreeView1.Width'打开窗体时tree宽
treew = Form3.Width / TreeView1.Width'打开窗体时form宽度与tree宽度比例

treeviewhight = TreeView1.Height'打开窗体时tree高
treeh = Form3.Height / TreeView1.Height'打开窗体时form高度与tree高度比例

webwidth = WebBrowser1.Width
webw = Form3.Width / WebBrowser1.Width

webhight = WebBrowser1.Height
webh = Form3.Height / WebBrowser1.Height

picture1width = Picture1.Width
picturew = Form3.Width / Picture1.Width

picture1hight = Picture1.Height
pictureh = Form3.Height / Picture1.Height
End Sub

Function dd()
TreeView1.Height = treeviewhight * treeh'现在窗体宽度=原窗体高度与刚打开时比例的积

c# 窗体控件问题 利用字符串来寻找窗体中的控件 关于windows窗体标题栏控件大小问题 高手帮忙，建窗体问题？ 关于vb Data控件的问题！高手来一下！谢~ VB6中让窗体上的控件随窗体的放大而自动适应？ vc++6.0 查错问题 星际高手来！！？？？~~~~~菜鸟问题~（变化问题）~~~ VB 拖动控件移动窗体 pb 窗体问题，高手请回答