VB2005 窗体中控件和容器中控件随窗体变化

   当初在网上查找了很多类似的代码，可惜都不能应用于VB2005版本，故对其进行了修改，基本实现了控件自动随窗体变化，特窃据为原创，呵呵，希望各位不要拍砖。

   但是不适用于对于容器内部的附件，故增加了对容器内控件的处理。

'窗体中控件自动随窗体变化大小

Option Explicit On
Module ResizeFormCls
    Private FormOldWidth As Long
    '保存窗体的原始宽度
    Private FormOldHeight As Long
    '保存窗体的原始高度
    Private ControlOldWidth As Long
    '保存控件的原始高度
    Private ControlOldHeight As Long
    '在调用ResizeForm前先调用本函数 
    Public Sub ResizeInit(ByVal FormName As Form)
        Dim Obj As Control
        FormOldWidth = FormName.Size.Width
        FormOldHeight = FormName.Size.Height
        On Error Resume Next
        Dim i As