代码如下：自定义ResizeInit函数和ResizeForm函数。

Private   Sub   Form_Load()  
  Call   ResizeInit(Me)  
  end   sub  
   
  Private   Sub   Form_Resize()  
  Call   ResizeForm(Me)  
  End   Sub  
   
  Public   Sub   ResizeInit(FormName   As   Form)  
        Dim   Obj   As   Control  
        FormOldWidth   =   FormName.ScaleWidth  
        FormOldHeight   =   FormName.ScaleHeight  
        On   Error   Resume   Next  
        For   Each   Obj   In   FormName  
            Obj.Tag   =   Obj.Left   &   "   "   &   Obj.Top   &   "   "   _  
                        &   Obj.Width   &   "   "   &   Obj.Height   &   "   "  
        Next   Obj  
        On   Error   GoTo   0  
  End   Sub  
   
  Public   Sub   ResizeForm(FormName   As   Form)  
         
        Dim   Pos(4)   As   Double  
        Dim   i   As   Long,   TempPos   As   Long,   StartPos   As   Long  
        Dim   Obj   As   Control  
        Dim   ScaleX   As   Double,   ScaleY   As   Double  
        ScaleX   =   FormName.ScaleWidth   /   FormOldWidth  
              ScaleY   =   FormName.ScaleHeight   /   FormOldHeight  
            On   Error   Resume   Next  
        For   Each   Obj   In   FormName  
            StartPos   =   1  
            For   i   =   0   To   4  
                          TempPos   =   InStr(StartPos,   Obj.Tag,   "   ",   vbTextCompare)  
                If   TempPos   >   0   Then  
                    Pos(i)   =   Mid(Obj.Tag,   StartPos,   TempPos   -   StartPos)  
                    StartPos   =   TempPos   +   1  
                Else  
                    Pos(i)   =   0  
                End   If  
                  Obj.Move   Pos(0)   *   ScaleX,   Pos(1)   *   ScaleY,   _  
                                  Pos(2)   *   ScaleX,   Pos(3)   *   ScaleY  
            Next   i  
        Next   Obj  
        On   Error   GoTo   0  
  End   Sub