求助这句话错在哪里？

next obj

在之前加上
dim obj.as object
For Each obj In Me

'在调用ResizeForm前先调用本函数
Public Sub ResizeInit(FormName As Form)
Dim Obj As Control
ObjOldWidth = FormName.ScaleWidth
ObjOldHeight = FormName.ScaleHeight
ObjOldFont = FormName.Font.Size / ObjOldHeight
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

我只是来吐槽功能的，不用理我+_+
——这是一个等级比你高的号在给你暖贴 ，请你放尊重点，不许发之类没礼貌的表情！