获取编译错误：VB6中未定义子或函数错误

我正在使用CEF创建一个示例VB6应用程序，以便在应用程序中嵌入浏览器。我使用WebKitX控件实现了同样的功能。这是我的示例代码

Private Sub WebKitXCEF31_OnBrowserReady()

 WebKitXCEF31.ExecCommandSetFocus = True
 WebKitXCEF31.FormatUsingInternalSelectionAPI = True
 WebKitXCEF31.DownloadScripts = True
 WebKitXCEF31.Open "http://www.google.com/"

End Sub

Private Sub WebKitXCEF31_OnCreate(ByVal Settings As WebKitXCEF3Lib.ISettings, CommandLineSwitches As 
String)

 Settings.cache_path = App.Path + "\MyCache"
 Settings.application_cache = App.Path + "\MyAppCache"
 Settings.persist_session_cookies = 1
 Settings.persist_user_preferences = 1
 AddLog "CommandLineSwitches=" + CommandLineSwitches

End Sub

Private Sub WebKitXCEF31_OnLoadEnd()

 WebKitXCEF31.Preview
 WebKitXCEF31.Events = DOM_EVENT_SELECTSTART Or _
 DOM_EVENT_DOMSUBTREEMODIFIED Or _
 DOM_EVENT_DOMFOCUSIN Or _
 DOM_EVENT_CLICK Or _
 DOM_EVENT_EDITABLE_ELEMENT_CHANGED

End Sub

---

Form\u Load

方法为空。运行应用程序时，OnCreate存根上会抛出一个错误，消息为“编译错误：未定义子或函数”。在实现存根/方法之前，是否有特定的地方需要定义存根/方法？我是VB6新手，这是我写的第一个代码。此代码可在WebKitX上获得。链接：

将WebKitX添加到VB6项目的分步示例如下：

---

将WebKitX添加到VB6项目的分步示例如下：

---

项目中是否存在

AddLog（）

方法？此外，在这种情况下，一般的经验法则是：将有问题的代码尽量精简。在这种情况下，我会注释掉

Sub-WebKitXCEF31_OnCreate（）

中除第一行以外的所有代码，如果这样做有效，请取消注释下一行等。您最终将到达实际导致错误的那一行。同意，将

AddLog

更改为

调试。打印
并查看是否对您有效。是否有
AddLog（）
项目中是否存在方法？此外，在这种情况下，一般的经验法则是：将有问题的代码尽量精简。在这种情况下，我会注释掉
Sub WebKitXCEF31_OnCreate（）
中除第一行以外的所有代码。如果这样做有效，请取消注释下一行。最终，您将到达实际导致错误的那一行。同意，将
AddLog
更改为
Debug。打印
并查看这是否对您有效。