新手上路：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,之类来代替.我是每次通过尝试来确定,确实比较麻烦.