Con VB6 c'e l'oggetto screen che include le proprieta Width e Height.
Devi considerare che sono in Twips, quindi devi dividere per TwipsPerPixelX e TwipsPerPixelY