GefScreen.Left (property)

Gets the Left of the object.

Syntax:

long = object.Left
object.Left = long

Description:

The Left property gets the left of the screen in pixels.

Example:

Sub GefScreen_Left()

    Dim oCimScr As GefScreen
    Dim strMessage As String
    Set oCimScr = CimGetScreen

    strMessage = "The Left of the screen
window is " & oCimScr.Left & " pixels" &
Chr$(10)

    strMessage = strMessage & "where
the screen object has a left of " & oCimScr.Object.Left / 20
& " pts"

MsgBox strMessage

End Sub