Remove Method Example

The following example gets the index number for the Click of the object CurrentObject and, if a procedure exists, removes it.

Dim lIndex As Long

Dim lFound As Long

CurrentObject.Procedures.GetEventHandlerIndex "Click", lIndex, lFound

If lFound = 1 Then

CurrentObject.Remove lIndex

End If

The following example removes the GroupDataGroup1 from the Groups collection of the FixDataSystemFDS.

FDS.Groups.Remove("DataGroup1")

The following example removes the first Group from the Groups collection of the FixDataSystemFDS.

FDS.Groups.Remove(1)