Procedure FakeDLLMenuIDs (hMenu, StartFakeIndex, LastFakeIndex = 0, hItem = 0)
            Protected TMP.MENUITEMINFO
            TMP\cbSize = SizeOf(MENUITEMINFO)
            TMP\fMask = #MIIM_ID | #MIIM_SUBMENU
            If LastFakeIndex < StartFakeIndex
                LastFakeIndex = StartFakeIndex
            EndIf

            If GetMenuItemInfo_(hMenu, hItem, #True, @TMP)
                If TMP\hSubMenu ; one more submenu
                    LastFakeIndex = FakeDLLMenuIDs(TMP\hSubMenu, StartFakeIndex, LastFakeIndex, 0)
                Else
                    TMP\fMask = #MIIM_ID
                    TMP\wID = StartFakeIndex + TMP\wID ; replace original wID to our internal
                    SetMenuItemInfo_(hMenu, hItem, #True, @TMP)
                    If TMP\wID > LastFakeIndex
                        LastFakeIndex = TMP\wID
                    EndIf
                EndIf

                LastFakeIndex = FakeDLLMenuIDs(hMenu, StartFakeIndex, LastFakeIndex, hItem + 1)
            EndIf
            ProcedureReturn LastFakeIndex
        EndProcedure