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

想实现当窗体大小变化时，窗体内控件随之变化，目前是这样实现的：
**************************************************************
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

嗯，这样可以实现的，谢谢！
  不过函数就不能通用了，因为我又很多这样的窗体，需要依依单独给函数了，看有没有办法做成通用函数的，请指教，谢谢了！