GefScreen.Zoom (property)

Gets and sets the current zoom factor of the screen.
Syntax: long = object.Zoom
object.Zoom = long
Description: A zoom of zero indicates zoom to best fit.

Example:

Sub GefScreen_Zoom()
    
    Dim oCimScr As GefScreen
    
    Set oCimScr = CimGetScreen
    oCimScr.Zoom = 50
    MsgBox "The zoom is now " & oCimScr.Zoom & "%"
    
End Sub