帮忙看看这段代码！！！！在线等待！！

[dr7801]

Private m_asp As CAspParser
Private WithEvents m_htmlDoc As HTMLDocument
Private m_htmlWindow As HTMLWindow2
Private m_htmlForm As HTMLFormElement
Private m_strCurPath As String

' Function Declaration
Private Declare Function PathIsURL Lib "shlwapi.dll" Alias "PathIsURLA" (ByVal strPath As String) As Boolean
Private Declare Function PathIsRelative Lib "shlwapi.dll" Alias "PathIsRelativeA" (ByVal strPath As String) As Boolean
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private Sub Form_Load()
WB.Navigate "about:blank"

' Create an instance of the ASP Offline Parser
Set m_asp = New CAspParser
m_asp.SetScriptControl SC
m_asp.Initialize
End Sub

我在运行程序时出现
“实时错误‘429’
ActiveX 部件不能创建对象”
不知道是怎么回事，谢谢！！！！！

[fjfzman]

没有添加引用安或部件。

[dr7801]

添加了

[g8341]

试试其它方法
Set m_asp =createobject(CAspParser)

[online]

注册CAspParser

[dr7801]

怎么样对一个类进行注册

[Go_home]

把DLL进行引用。