ActiveEvents
This property returns the number of active events.
HRESULT ActiveEvents([out, retval] long *pVal);
Parameters
pVal
[out, retval] A pointer to a long value that returns the current number of active events.
Return Values
S_OK
function was successfully called
E_POINTER
pVal was no valid pointer.
Visual Basic sample code
' get the one and only event logger
Dim evtLogger As TCEVENTLOGGERLib.TcEventLog
Set evtLogger = New TCEVENTLOGGERLib.TcEventLog
' get the number of active events
Dim countActive As Long
countActive = evtLogger.ActiveEvents