运行时错误424对象必需

Question

嘿所以我在这段代码中得到了这个错误：

Private Sub Request_Stuff_button_Click()
    Call Main.createObjects
    Call My_Control.requestStuff
End Sub

在'Call My_Control.requestStuff'行。 'Main'模块如下所示：

Public My_Control As ControlObject

Public Sub createObjects()
    If My_Control Is Nothing Then
        Set My_Control = New ControlObject
    End If
End Sub

最奇怪的是，当我添加

时

Dim x As Integer
x = My_Control.dummyInt

在得到错误的行之前，x在错误发生之前得到正确的值，这意味着My_Control肯定是一个对象，绝对不是什么。

这个错误让我感到害怕，提前谢谢。

Answer 1

谢谢，但这不是问题，问题实际上是在requestStuff方法中，但是调试器在该行而不是在方法中冻结而且很傻我忘了检查它。