GefScreen.Top (property)

Gets the Top of the object.

Syntax:

long = object.Top
object.Top = long

Description:

The Top property gets the top of the screen in pixels.

Example:

Sub GefScreen_Top()

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

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

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

MsgBox strMessage

End Sub