XProfan

DEF LoadMenu(2)!"USER32","LoadMenuA"
DEF TrackPopupMenu(7)!"USER32","TrackPopupMenu"
DEF GetSubMenu(2)!"USER32","GetSubMenu"
DEF GetCursorPos(1)!"USER32","GetCursorPos"
Declare mpos#
Dim mpos#,8
cls
Declare menu&, submenu&
menu& = LoadMenu(%hInstance,"LEER")' Menü Laden
submenu& = GetSubMenu(menu&,0)' damit das "PopUp" nicht angezeigt wird bzw. wird brauchen nur das Untermenü
GetCursorPos(mpos#)' globale Mausposition einlesen
TrackPopupMenu(submenu&,0,Long(mpos#,0),Long(mpos#,4),0,%HWnd,0)' und hier das Untermenü anzeigen
WaitInput