GefContextMenu.Left (property)

Gets and sets the position where the left edge of the context menu will be displayed
Syntax: long = object.Left
object.Left = long
Description: The Left property gets and sets the left edge of the menu in twips.


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