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")' Menu loading
submenu& = GetSubMenu(menu&,0)' so the "PopUp" not displayed becomes or. becomes need only the Untermenü
GetCursorPos(mpos#)' globale Mausposition reading
TrackPopupMenu(submenu&,0,Long(mpos#,0),Long(mpos#,4),0,%HWnd,0)' and here the Untermenü Show
WaitInput