哪位大哥可以帮小弟编下这个Vb程序啊!!!!!!!!!小弟在此谢过拉

1.这个代码要写在窗体的 resize 事件中
2.控件的大小 就要根据你的窗体大小来改变了
如你的窗体的宽是4800 那么你的控件的宽就是 5* 4800/5（这只是个例子）
就是要按比例来弄他的大小。

没有你程序的界面 一些控件大小 什么的都没法说清楚
你按这个思路 就能做把

呵呵,从VB吧主CBM666的博客中贴过来的..

Dim oldheight&, oldwidth&

Private Sub Form_Load()
oldheight = Me.Height: oldwidth = Me.Width
End Sub

Private Sub Form_Resize()
Dim cnt As Control
For Each cnt In Controls
cnt.Width = cnt.Width * Me.Width / oldwidth
cnt.Height = cnt.Height * Me.Height / oldheight
Next
oldheight = Me.Height: oldwidth = Me.Width
End Sub

也学习了