Выделение пункта меню средствами API

[Megas13]

Есть меню созданое посредством API функций CreatePopupMenu, AppendMenu.
Задача заключается в том, чтобы при отоброжении меню функцией TrackPopupMenu выделить один из пунктов меню жирным, как это делает внутреняя функция VB - PopupMenu с установленым параметром DefaultMenu.

Облазил пол инета, но так и не смог найти решение.

[Megas13]

Разобрался сам. Если кого интересует, то делается это так:

Код: Выделить всё

Public Type MENUITEMINFO
    cbSize As Long
    fMask As Long
    fType As Long
    fState As Long
    wID As Long
    hSubMenu As Long
    hbmpChecked As Long
    hbmpUnchecked As Long
    dwItemData As Long
    dwTypeData As String
    cch As Long
End Type

Public Const MFS_DEFAULT = &H1000
Public Const MIIM_STATE = &H1
Public Const API_TRUE = 1

Declare Function SetMenuItemInfo Lib "user32" Alias "SetMenuItemInfoA" (ByVal hMenu As Long, ByVal un As Long, ByVal bool As Boolean, lpcMenuItemInfo As MENUITEMINFO) As Long

'Код в функции
Dim mii As MENUITEMINFO

hPopMenu = CreatePopupMenu()
AppendMenu hPopMenu, 0&, 1100, "Test"

mii.cbSize = Len(mii)
mii.fMask = MIIM_STATE
mii.fState = MFS_DEFAULT
SetMenuItemInfo hPopMenu, 0, API_TRUE, mii