控件大小随窗体大小变化的问题？
想实现当窗体大小变化时，窗体内控件随之变化，目前是这样实现的：
**************************************************************
Public Sub ResizeInit(FormName As Form)
'设置窗体旧的高度与宽度
FormOldWidth = FormName.ScaleWidth
FormOldHeight = FormName.ScaleHeight
On Error Resume Next
For Each pCtl In FormName
pCtl.Tag = pCtl.Left & " " & pCtl.Top & " " & pCtl.Width & " " & pCtl.Height & " "
Next pCtl
On Error GoTo 0
'设置窗体中控件的Tag值(根据空间的位置和大小来设置)
'返回或设置一个表达式，它存储程序需要的额外数据。
'与其它属性不同，Visual Basic 不使用 Tag 属性的值；
'可用该属性识别对象。
End Sub
**************************************************************
Public Sub ResizeForm(FormName As Form)
'保存窗体的宽度与高度缩放比例
ScaleX = FormName.ScaleWidth / FormOldWidth
ScaleY = FormName.ScaleHeight / FormOldHeight
On Error Resume Next
'变化窗体内的各控件
For Each pCtl In FormName
staPos = 1
For ib = 0 To 4 '位置和大小
'取得控件的原始位置和大小
tmpPos = InStr(staPos, pCtl.Tag, " ", vbTextCompare)
If tmpPos > 0 Then
Pos(ib) = Mid(pCtl.Tag, staPos, tmpPos - staPos)
staPos = tmpPos + 1
Else
Pos(ib) = 0
End If
'根据控件的原始位置及窗体改变大小的
'比例对控件重新定位与改变大小
pCtl.Move Pos(0) * ScaleX, Pos(1) * ScaleY, Pos(2) * ScaleX, Pos(3) * ScaleY
Next ib
Next pCtl
On Error GoTo 0
End Sub
*********************************************************************
Private Sub Form_Load()
Call ResizeInit(Me)
End Sub
*********************************************************************
Private Sub Form_Resize()
Call ResizeForm(Me)
End Sub
*********************************************************************
现在的问题是：
窗体中自己做的按钮效果，即将Label 控件放置于Image上来实现，当窗体大小改变后发现：控件大小位置都改变了，但是Label控件相对于Image控件的位置变化了，Label控件不在Image控件上了，请问问题出在哪呢？如何解决，谢谢！
[解决办法]
很麻烦的一件事.
你可以先调Image,再设置Label相对于Image的位置,比如:
label1.left=Image1.left
label1.top=Image1.top-100
[解决办法]
特殊的把该控件的tag属性设置一下，然后在函数里判断处理
[解决办法]
很多程序最大化之后，并不会改变大小，只改变位置
