GefProcAction.Index (read-only property)

Gets the index of the selected action.
Syntax: long = object.Index
Description: The Index argument can range for 0 to Count-1.

The GefProcAction collection supports access by index number only.


Sub GefProcAction_Index()
    Dim oCimObj As GefObject
    Dim oCimProceduresObj As GefProcedures
    Dim oCimProcedObj As GefProcedure
    Dim oCimProcActs As GefProcActions
    Dim oCimProcAct As GefProcAction
    Set oCimObj = CimGetObject
    Set oCimProceduresObj = oCimObj.Procedures
    If oCimProceduresObj.Count > 0 Then
        Set oCimProcedObj = oCimProceduresObj.Item(0)
        Set oCimProcActs = oCimProcedObj.Actions
        If oCimProcActs.Count > 0 Then
            Set oCimProcAct = oCimProcActs.Item(0)
            MsgBox "The first action has an index of " & _
            MsgBox "There are no actions"
        End If
        MsgBox "The object does not have any procedures"
    End If
End Sub