Obsolete

Replaced by a GefEventContext

Syntax

CimEvent.OleParmsCount

Description

Returns an Integer representing the number of parameters from an event fired from an ActiveX control. This is only valid if the event type is CIM_ET_OLE_EVENT.

Example

Dim Ev As CimEvent

Dim var As Variant

Set Ev = CimGetEvent()

If Ev.Type = CIM_ET_OLE_EVENT Then

  Count% = Ev.OleParmsCount

  Index% = 0

  While Index% < Count%

    var = Ev.GetOleParm(Index)

    'Do Stuff with the parameter.

  Wend

End If

Obsolete basic extensions.