How to get the COM+ component status with VB6

I want to get the COM+ component status, such as "In Call", "Call Time(ms)". with VB6 in windows 2000.
I try to use COMSVCSLib to get the status, and I think IGetAppData interface can do it. But I do not know how to use IGetAppData in VB6.
Example, I want to use the "GetApps" method.
HRESULT _stdcall GetApps(
[out] unsigned long* nApps,
[out] appData** aAppData);
But I do not know how to Dim the appData parameter. "Dim a as appData" and "Dim a as CAppData" both exception.

Please help me and tell me how to get the component status in VB6, it is better to give me an example.

Thanks a lot!

You cannot access this interface directly from VB 6.0.

You can use this free component from VB 6.0 to get the data: http://www.egilh.com/blog/articles/ComTracker.aspx

The page links to C++ source code if you prefer to compile the code yourself.

Cheers,
egilh