For Each Components (gb)

Dim hComponent As Component
For Each hComponent In Components
...
Next

Enumerates all components loaded by the interpreter.