急，PB调用 vb6 activeXdll 遇到的问题，感谢各位大侠。。。。。。。。。。。。。。。。。。。。。。。。。。。。

[pantung]

activeX dll里面有class和form。

现在调用了class 里的test 函数，则form1.show，可是pb调用是 窗体无法打开

如果test函数直接返回msgbox“hi”，则pb调用正常

－－－－－－－－－－－－－－－－－－
问题：1> 是不是和什么窗口句柄有关？
2> pb调用 activeX dll 有无别的思路？

感谢各位大侠，分不够再加～～～～～～～～～～～～～～
再次感谢

[pantung]

ding

[balloonman2002]

Public Sub Test()
Dim fForm As New FrmTT
load fForm '加上这句看看
fForm.Show vbModal
End Sub

[pantung]

感谢各位大侠

pb该怎么调用vb的activeX dll 呢？

[pantung]

感谢各位大侠

pb该怎么调用vb的activeX dll 呢？

[sendwb]

OLEObject lole_SJComm
Long ll_Rtn
lole_SJComm = Create OLEObject
SharedObjectRegister("DLL文件名.类名" ,"thread1" )
SharedObjectGet ( "thread1" ,lole_SJComm )
ll_Rtn = lole_SJComm.ConnectToNewObject("DLL文件名.类名")

Op_C=lole_SJComm.Post OpComm(ls_com)

Op_C返回值 OpComm函数名 ls_com参数

[sendwb]

OLEObject lole_SJComm
Long ll_Rtn
lole_SJComm = Create OLEObject
SharedObjectRegister("DLL文件名.类名" ,"thread1" )
SharedObjectGet ( "thread1" ,lole_SJComm )
ll_Rtn = lole_SJComm.ConnectToNewObject("DLL文件名.类名")

Op_C=lole_SJComm.Post OpComm(ls_com)

Op_C返回值 OpComm函数名 ls_com参数