XProfan

DEF LoadMenu(2)!"USER32","LoadMenuA"
DEF TrackPopupMenu(7)!"USER32","TrackPopupMenu"
DEF GetSubMenu(2)!"USER32","GetSubMenu"
DEF GetCursorPos(1)!"USER32","GetCursorPos"
Declarar mpos#
Dim mpos#,8
cls
Declarar menu&, submenu&
menu& = LoadMenu(%hInstance,"LEER")' Menü Laden
submenu& = GetSubMenu(menu&,0)' así el "PopUp" no adecuado o. se brauchen sólo el Untermenü
GetCursorPos(mpos#)' globale Mausposition einlesen
TrackPopupMenu(submenu&,0,Largo(mpos#,0),Largo(mpos#,4),0,%HWnd,0)' y aquí el Untermenü Mostrar
WaitInput