急求解决方法：VB错误‘-2147024894 (80070002)’

[jsjtl]

在运行VB文件的时候提示错误信息，请问如何处理：

在部分WindowsXP下会报该错误，win7正常。
错误信息如下：
Run-time error '‘-2147024894 (80070002)';
Method' of object ' failed



相关源代码：
Private Sub cmdActiveXSetup_Click()
Set objShell = CreateObject("Wscript.Shell")
objShell.Run (activeXSetupPath)
If Not cmdIEupdate.Enabled Then
Unload Me
End If
End Sub

[zyg0]

缺少vb运行包 的 win7 建议打包 包含上 引用使用 不要 Set objShell = CreateObject("Wscript.Shell") 动态使用