GefObject.Top (property)

Gets and sets the top postion of the object.

Syntax:

long = object.Top
object.Top = long

Description:

TWIPS. (0,0) is the bottom left corner of the screen.

Example:

Sub GefObject_Top()

    Dim oCimobj As GefObject

    Set oCimobj = CimGetObject

    MsgBox "The top of the object is " & _

        oCimobj.Top
& " in twips"

MsgBox "The top of the object is " & _

        (oCimobj.Top
/ 20) & " in points"

End Sub