运行时错误424所需的对象

Question

嘿，所以我在此代码得到这个错误：

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

在“呼叫My_Control.requestStuff”线。 “主”模块如下所示：

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方法，但调试器冻结在该行而不是在该方法，愚蠢的我忘了检查。