关于vbscript调用自开发的ActiveX控件

[xlwyx0501]

自己用VC开发了一个ActiveX控件，函数原形如下:
HXGetInfo([in] Long lIndex, [out] BSTR *pstrWeb, [out] BSTR *pbstrWebTitle，[out, retval] BSTR *pbstrWebCode)

用vbscript调用如下：

dim lIndex
dim strWeb
dim strWebTitle
dim strWebCode

lIndex = 1
strWeb = ""
strWebTitle = ""
strWebCode = ""
strWebCode = HXGetInfo(lIndex, strWeb, strWebTitle)
...

结果返回的strWeb, strWebTitle, strWebCode值都为空，不知道是什么原因？

如果我用vb写一个调用的例子，就都回返回成功。

那位高手帮个忙呢，本人愿意多给分，谢谢！

[xlwyx0501]

不知道为啥，没有给分一项，谁能回答我的问题？我给50分。

[问道老王]

strWebCode = HXGetInfo(lIndex, strWeb, strWebTitle)

这句使用 Set

Set strWebCode = HXGetInfo(lIndex, strWeb, strWebTitle)

[是是非非]

这样试试

strWebCode = HXGetInfo(ByRef lIndex, ByRef strWeb, ByRef strWebTitle)

[三仙半]

我看2楼的办法应该可以，我们在使用FSO等组件时不也是用set的吗？