控件大小随窗体大小变化的问题？

想实现当窗体大小变化时，窗体内控件随之变化，目前是这样实现的：
**************************************************************
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控件上了，请问问题出在哪呢？如何解决，谢谢！