How to delete components in suppressed assemblies using Inventor iLogic?

Here’s how to do it, ignoring occurrences in patterns.

Trace.WriteLine("Starting....")

Dim oComp As ComponentOccurrence
Dim oComps As ComponentOccurrences

oComps = ThisDoc.Document.ComponentDefinition.Occurrences

For Each oComp In oComps
If oComp.Suppressed Then
Trace.WriteLine(oComp.Name + "is suppressed")
If Not oComp.IsPatternElement Then 
oComp.Delete
End If
Else
Trace.WriteLine(oComp.Name + "NOT suppressed")
End If
Next