Вопросы по созданию контекстного меню.

#include <ModernMenuRaw.au3>
#include <GUIConstantsEx.au3>

$hGUI = GUICreate("", 0, 0, -32767, -32767, 0, 0, _TCHGetScriptProcHandle())
$ContMenu = GUICtrlCreateContextMenu()
Dim $ih[20]
For $i = 0 To 15
  $ih[$i] = _GUICtrlCreateODMenuItem('Пункт '&$i, $ContMenu, "shell32.dll", $i)
Next
$ih[5] = _GUICtrlCreateODMenu('ПодПункт ', $ContMenu, "shell32.dll", -2)
GUICtrlSetState(-1, $GUI_DEFBUTTON) ; жирный пункт
GUISetState()
$mpos = MouseGetPos()
SetOLBlueColors()
_TrackPopupMenu($hGUI, GUICtrlGetHandle($ContMenu), $mpos[0], $mpos[1])

While 1
  If _IsPressed(1) Then Exit
  $ww=GUIGetMsg()
  For $i = 0 To UBound($ih)-1
    If $ww=$ih[$i] Then
      MsgBox(0, "", "Пункт "&$i)
      Exit
    EndIf
  Next
WEnd

Func _TrackPopupMenu($hWnd, $ContMenu, $x, $y)
  DllCall("user32.dll", "int", "TrackPopupMenuEx", "hwnd", $ContMenu, "int", 0, "int", $x, "int", $y, "hwnd", $hWnd, "ptr", 0)
EndFunc

Func _IsPressed($nKey)
  $aR = DllCall("user32", "int", "GetAsyncKeyState", "int", "0x" & Hex($nKey, 2))
  If BitAND($aR[0], 0x8000) Then Return True
  Return False
EndFunc

Func _TCHGetScriptProcHandle()
  Local $sTitle = "ScriptWinRandomTitle"
  For $i = 0 To 31
    $sTitle &= Chr(Random(0x41, 0x5A))
  Next
  AutoItWinSetTitle($sTitle)
  Return WinGetHandle($sTitle)
EndFunc

Func SetOLBlueColors()
	_SetMenuBkColor(0xFFFFFF)
	_SetMenuIconBkColor(0xFFEFE3)
	_SetMenuIconBkGrdColor(0xE4AD87)
	_SetMenuSelectBkColor(0xC2EEFF)
	_SetMenuSelectRectColor(0x800000)
	_SetMenuSelectTextColor(0x000000)
	_SetMenuTextColor(0x000000)
EndFunc