For Each Screens (gb.gui)

Dim hScreen As Screen
For Each hScreen In Screens
  ...
Next