Gets and sets the position where the top edge of the context menu will be displayed | |
Syntax: | long = object.Top object.Top = long |
Description: | The Top property gets and sets the top edge
of the menu in twips. Example: Sub OnPreContextMenu(oContextMenu As
GefContextMenu) Dim xPos As Long Dim yPos As Long xPos = oContextMenu.Parent.Left yPos = oContextMenu.Parent.Top -
oContextMenu.Parent.Height 'Make the menu appear below the object instead of
where the mouse was clicked oContextMenu.Left = xPos oContextMenu.Top = yPos End Sub |