GefProcActions.Remove (method)

Removes the specified item from the collection.
Syntax: object.Remove Index
Optional Index As long - The Index argument can range for 0 to Count-1.
Description: The Remove method removes a specified action from the procedure.


Sub GefProcActions_Remove()
    Dim oCimObj As GefObject
    Dim oCimProceduresObj As GefProcedures
    Dim oCimProcedObj As GefProcedure
    Dim oCimProcAct As GefProcActions
    Set oCimObj = CimGetObject
    Set oCimProceduresObj = oCimObj.Procedures
    If oCimProceduresObj.Count > 0 Then
        Set oCimProcedObj = oCimProceduresObj.Item(0)
        Set oCimProcAct = oCimProcedObj.Actions
        oCimProcAct.Remove 0
        MsgBox "The first action was removed from the procedure"
        MsgBox "The object does not have any procedures"
    End If
End Sub