>DECLARE INTEGER CreatePopupMenu IN WIN32API >DECLARE INTEGER InsertMenu IN WIN32API INTEGER, INTEGER, INTEGER, INTEGER, STRING >DECLARE INTEGER TrackPopupMenu IN WIN32API INTEGER, INTEGER, INTEGER, INTEGER, INTEGER, INTEGER, INTEGER >DECLARE INTEGER DrawMenuBar IN WIN32API INTEGER >DECLARE INTEGER GetActiveWindow IN WIN32API >**** These are only required if you want to add an image to the item >DECLARE INTEGER LoadImage IN win32api INTEGER,STRING,INTEGER,INTEGER,INTEGER,LONG >DECLARE INTEGER SetMenuItemBitmaps IN win32api INTEGER,INTEGER,INTEGER,INTEGER,INTEGER > >**** Need to get the window handle of the window >lhWindowHandle = GetActiveWindow() > >**** Create the new popup menu and get the handle >lhMenuHandle = CreatePopupMenu() > >lnItemCount = 1 >lnSuccess = InsertMenu(lhMenuHandle, lnItemCount, 1024, ; > lnItemCount, "Text One") >**** Must redraw the menu each time we add a new item to the list >lnSuccess = DrawMenuBar(lhWindowHandle) > >**** Set a picture image for the selected item >lcBitmap = "D:\SHE Client Server\GRAPHICS\Shortcut Menu Graphics\Company.bmp" >lnImageHandle = LoadImage(0, lcBitmap, 0, 12, 12, 48) >SetMenuItemBitmaps(lhMenuHandle, lnItemCount -1, 1024, lnImageHandle, lnImageHandle) > >lnItemCount = lnItemCount + 1 >**** Add a separator to the menu >lnSuccess = InsertMenu(lhMenuHandle, lnItemCount, 2048, ; > lnItemCount, "") > >**** set the position of where to show the menu >lnX = 0 >lnY = 0 >lnSuccess = TrackPopupMenu(lhMenuHandle, 256, lnX, lnY,0, lhWindowHandle, 0) > >CLEAR DLLS >>