Scale display vba code

[arnelgp]

Public Function ScreenResToZoom(DPIScaler As Double)
    Select Case DPIScaler
        Case Is < 201
            ScreenResToZoom = 100
            then Me.Top = (Application.Height - 75 - Me.Height)
        Case Is < 301
            ScreenResToZoom = 95
            then Me.Top = (Application.Height - 100 - Me.Height)
        Case Is < 401
            ScreenResToZoom = 85
            then Me.Top = (Application.Height - 125 - Me.Height)
        Case Is < 501
            ScreenResToZoom = 70
            then Me.Top = (Application.Height - 150 - Me.Height)
        Case Else
            ScreenResToZoom = 50
            then Me.Top = (Application.Height - 75 - Me.Height)
    End Select
ActiveWindow.Zoom = ScreenResToZoom

 End Function