新手上路：ScaleHeight 在哪个包下,该如何处理

新手上路：ScaleHeight 在哪个包下
'在调用ResizeForm前先调用本函数
        Public   Sub   ResizeInit(ByVal   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

错误提示：ScaleWidth不是System.Windows.Forms.Form的成员

[解决办法]
这个成员已经没了,现在统一使用像素,你可以用Width-5,Height-20,之类来代替.我是每次通过尝试来确定,确实比较麻烦.