GefScreen.ZoomToWindowSize (property)

Automatically zooms the screen to fit in the size.
Syntax: Boolean = object.ZoomToWindowSize
object.ZoomToWindowSize = Boolean
Description: When this value is set to true, the screen is zoomed to fit within the current window size.

Example:

Sub GefScreen_ZoomToWindowSize()
    
    Dim oCimScr As GefScreen
    Set oCimScr = CimGetScreen
    oCimScr.ZoomToWindowSize = True
    
End Sub