VB用控件自适应大小函数类型不匹配！！！
贴出API函数：'VB控件随窗体大小而变化
'当窗体大小改变时，如何动态的改变控件的大小是许多VB程序员头痛的
'事。有的人设置窗体Resizable但却不改变控件的大小；有的人则根据控件的
'绝对位置与窗口大小相加减的办法来重新定位控件与改变大小，这种办法比
'较繁琐，且不可重用；当然也有人则限定窗口干脆不让改变。有没有一种简
'便易行的办法？答案是肯定的，下面给出一个一劳永逸的办法，源程序如下:
Option Explicit
Dim FormOldWidth As Long '窗体旧的宽度值
Dim FormOldHeight As Long '窗体旧的高度值
'——————————————————————————
'名称：ResizeInit
'作者：罗简单
'日期：2008-11-7
'功能：初始化窗体
'在调用ResizeForm前先调用本函数
'——————————————————————————
Public Sub ResizeInit(FormName As Form)
Dim pCtl As Control
'设置窗体旧的高度与宽度
FormOldWidth = FormName.ScaleWidth
FormOldHeight = FormName.ScaleHeight
On Error Resume Next
For Each pCtl In FormName
'设置窗体中控件的Tag值(根据空间的位置和大小来设置)
'返回或设置一个表达式，它存储程序需要的额外数据。
'与其它属性不同，Visual Basic 不使用 Tag 属性的值；
'可用该属性识别对象。
pCtl.Tag = pCtl.Left & " " & pCtl.Top & " " & pCtl.Width & " " & pCtl.Height & " "
Next pCtl
On Error GoTo 0
End Sub
'——————————————————————————
'名称：ResizeForm
'作者：罗简单
'日期：2008-11-7
'功能：按比例改变窗体内各控件的大小
'在调用ReSizeForm前先调用ReSizeInit函数
'——————————————————————————
Public Sub ResizeForm(FormName As Form)
Dim Pos(4) As Double
Dim i As Long, tmpPos As Long, staPos As Long
Dim pCtl As Control
Dim ScaleX As Double, ScaleY As Double
'保存窗体的宽度与高度缩放比例
ScaleX = FormName.ScaleWidth / FormOldWidth
ScaleY = FormName.ScaleHeight / FormOldHeight
On Error Resume Next
'变化窗体内的各控件
For Each pCtl In FormName
staPos = 1
For i = 0 To 4 '位置和大小
'取得控件的原始位置和大小
tmpPos = InStr(staPos, pCtl.Tag, " ", vbTextCompare)
If tmpPos > 0 Then
Pos(i) = Mid(pCtl.Tag, staPos, tmpPos - staPos)
staPos = tmpPos + 1
Else
Pos(i) = 0
End If
'根据控件的原始位置及窗体改变大小的
'比例对控件重新定位与改变大小
pCtl.Move Pos(0) * ScaleX, Pos(1) * ScaleY, Pos(2) * ScaleX, Pos(3) * ScaleY
Next i
Next pCtl
On Error GoTo 0
End Sub
控件自适应大小就是窗体变化多少控件也变化多少。
用它设置MDI子窗体，一打开就这样了。
求救啊，非常急的。能解决就给200分啊。
追问：别说得这么简单，我有很多控件的
