CimEvent.OleParmsCount (read-only property)

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