For Each Screens (gb.qt4)

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

Enumera ogni monitor collegato alla vostra scheda grafica.