ActiveX in PB

[extempore]

Hi all,

I need help converting the existing sample VB code to PB. There is an ActiveX object with type exe (not dll or ocx) called TestServer.exe

Currently, when this VB program runs, it also kicks off this Activex objects and starts communicatting to it instantly. I need to be able to use that object in PB and call events in it like what VB is doing.

How do I do this in PB? Please let me know. Sample code based on the script here would be greatful.

Current VB code:
--------------------------------------
Option Explicit

Private WithEvents mCall As TestCall
Private mTestServer As TestServer
-----------------------------

Private Sub Form_Load()
Set mTestServer = New TestServer
Set mCall = mTestServer.TestCall
End Sub

--------------------------------------

--This is called by from a button clicked Event
Private Sub mCall_callEvent(ByVal callId As String)
lstMain.AddItem "mCall_callEvent(" & callId & ")"
End Sub
--------------------------------------

--Extempore