我想实现 ：
当窗体放大时，窗体上的控件也跟着放大。窗体缩小时，窗体上的控件也跟着缩小。代码什么写...请各位大哥大姐帮帮忙。

是resize.ocx控件吧！

是在RESIZE里面写代码，不过具体如何写还不清楚...

在窗体的RESIZE事件中写代码,改变控件的HEIGHT、WIDTH、TOP、LEFT属性就是了

先去试试，好象还要跟窗体的HEIGHT、WIDTH、TOP、LEFT比较，很麻烦。 谢谢咯！

这都嫌麻烦，那以后怎么办啊

不麻烦!

我这里有一篇文章，希望对你有点帮助：

　　　　　　　　　　　　　自动改变控件大小

当窗体大小改变时,如何动态的改变控件的大小是许多VB程序员头痛的事。
有的人设置窗体Resizable 但却不改变控件的大小；有的人则根据控件的绝对位
置与窗口大小相加减的办法来重新定位控件与改变大小,这种办法比较繁琐,且
不可重用；当然也有人则限定窗口干脆不让改变。

有没有一种简便易行的办法？答案是肯定的,下面给出一个一劳永逸的办法,
源程序如下:Option Explicit Private FormOldWidth As Long'保存窗体的原
始宽度Private FormOldHeight As Long' 保存窗体的原始高度' 在调用ResizeForm
前先调用本函数Public Sub ResizeInit (FormName As Form)

Dim Obj As Control
FormOldWidth = FormName.ScaleWidth
FormOldHeight = FormName.ScaleHeight
On Error Resume Next
For Each Obj In FormName
Obj.Tag = Obj.Left & " " & Obj.Top & " " & Obj.Width & " " & Obj.Height & " "
Next Obj
On Error GoTo 0 End Sub'按比例改变表单内各元件的大小,在调用ReSizeForm前先调ReSizeInit

函数Public Sub ResizeForm (FormName As Form)

Dim Pos (4 ) As Double Dim i As Long, TempPos As Long, StartPos
As Long Dim Obj As Control
Dim ScaleX As Double , ScaleY As Double ScaleX = FormName.ScaleWidth / FormOldWidth'保

存窗体宽度缩放比例
ScaleY = FormName.ScaleHeight / FormOldHeight' 保存窗体高度缩放比例
On Error Resume Next
For Each Obj In FormName
StartPos = 1 For i = 0 To 4' 读取控件的原始位置与大小
TempPos = InStr (StartPos, Obj.Tag, " ", vbTextCompare)
If TempPos > 0 Then
Pos (i ) = Mid(Obj.Tag , StartPos , TempPos - StartPos)
StartPos = TempPos + 1 Else Pos (i ) = 0
End If' 根据控件的原始位置及窗体改变大小的比例对控件重新定位与改变大小Obj.Move

Pos(0 ) * ScaleX ,
Pos (1 ) * ScaleY , Pos(2 ) * ScaleX ,Pos (3 ) * ScaleY Next i
Next Obj
On Error GoTo 0
End Sub
Private Sub Form_Load()
Call ResizeInit (Me)'在程序装入时必须加入
End Sub
Private Sub Form_Resize ()
Call ResizeForm (Me)'确保窗体改变时控件随之改变
End Sub

本例中给出了二个函数:ResizeInit和ResizeForm,在调用ResizeForm之前必须先调用ResizeInit.
你可以将本程序拷到窗体代码段里,然后在窗体里加入任意控件即可进行测试。

附件的代码可以解决你的问题: