For Each Components (gb)

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

Enumera tutti i componenti caricati dall'interprete.