CimEvent.Type (read-only property)

Obsolete Replaced by a GefEventContext
Syntax CimEvent .Type
Description Returns an Integer representing the type of event.
Comments The type is one of the following values: CIM_ET_NONECIM_ET_MOUSE_DOWNCIM_ET_MOUSE_UPCIM_ET_KEY_DOWNCIM_ET_KEY_UPCIM_ET_WHILE_MOUSE_DOWNCIM_ET_WHILE_KEY_DOWNCIM_ET_TIMEDCIM_ET_EXPRESSION_HIGHCIM_ET_EXPRESSION_UPDATECIM_ET_SCREEN_OPENCIM_ET_SCREEN_CLOSECIM_ET_OLE_EVENT
Example 

                Dim
                Ev As CimEvent
                Set Ev = CimGetEvent()
                If Ev.Type = CIM_ET_SCREEN_OPEN Then
??????