#include <ModernMenuRaw.au3>

$hGui = GUICreate("Удаляет пункт меню", 300, 200)

$iFileMenu = GUICtrlCreateMenu("&Файл")
_SetMenuIconBkColor(0x99EE99)

Global $aItem[6] = [5]

For $i = 1 To $aItem[0]
	$aItem[$i] = _GUICtrlCreateODMenuItem("Пункт " & $i, $iFileMenu, "shell32.dll", -$i - 21)
Next
$iButton = GUICtrlCreateButton("Удалить пункт", 50, 130, 170, 28)
GUISetState()
Send('^{F10}{Enter}')

While 1
	Switch GUIGetMsg()
		Case $iButton
			If $aItem[0] Then
				_GUICtrlODMenuItemDelete($aItem[$aItem[0]])
				$aItem[0] -= 1
				Send('^{F10}{Enter}')
			EndIf
		Case -3
			Exit
	EndSwitch
WEnd