Стрелки с раскрывающимися меню в ComboBox

Const MF_CHECKED = &H8&
Const MF_APPEND = &H100&
Const TPM_LEFTALIGN = &H0&
Const TPM_RETURNCMD = &H100
Const MF_DISABLED = &H2&
Const MF_GRAYED = &H1&
Const MF_SEPARATOR = &H800&
Const MF_STRING = &H0&
Const MF_POPUP = &H10
Const MF_BYPOSITION = &H400&
'
Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
'
Private Declare Function GetWindowRect Lib 'user32.dll' ( _
    ByVal hWnd As Long, _
    lpRect As RECT) As Long
Private Declare Function GetMenuString Lib 'user32.dll' Alias 'GetMenuStringA' ( _
     ByVal hMenu As Long, _
     ByVal wIDItem As Long, _
     ByVal lpString As String, _
     ByVal nMaxCount As Long, _
     ByVal wFlag As Long) As Long
Private Declare Function CreatePopupMenu Lib 'user32' () As Long
Private Declare Function InsertMenu Lib 'user32.dll' Alias 'InsertMenuA' ( _
     ByVal hMenu As Long, _
     ByVal nPosition As Long, _
     ByVal wFlags As Long, _
     ByVal wIDNewItem As Long, _
     ByVal lpNewItem As Any) As Long
Private Declare Function TrackPopupMenu Lib 'user32' ( _
    ByVal hMenu As Long, _
    ByVal wFlags As Long, _
    ByVal x As Long, _
    ByVal y As Long, _
    ByVal nReserved As Long, _
    ByVal hWnd As Long, _
    ByVal lprc As Any) As Long
Private Declare Function AppendMenu Lib 'user32' Alias 'AppendMenuA' ( _
    ByVal hMenu As Long, _
    ByVal wFlags As Long, _
    ByVal wIDNewItem As Long, _
    ByVal lpNewItem As Any) As Long
Private Declare Function DestroyMenu Lib 'user32' (ByVal hMenu As Long) As Long
'
Dim hMenu As Long
'
Private Sub Command1_Click()
    Const maxLen As Long = 255&
    Dim cmdRect As RECT
    Dim menuX As Long, menuY As Long
    Dim menuId As Long, menuText As String
'
    ' Получаем координаты нижнего левого угла кнопки Command1:
    GetWindowRect Command1.hWnd, cmdRect
    menuX = cmdRect.Left
    menuY = cmdRect.Bottom
'
    'Показываем всплывающие меню и определяем, по какому элементу щёлкнули:
    menuId = TrackPopupMenu(hMenu, TPM_LEFTALIGN Or TPM_RETURNCMD, menuX, menuY, 0, Me.hWnd, ByVal 0&)
    If menuId <> 0& Then
        ' был сделан щелчок по элементу с id = menuId
        menuText = Space$(maxLen)
        GetMenuString hMenu, menuId, menuText, maxLen, 0&
        menuText = Left$(menuText, InStr(1, menuText, vbNullChar) - 1)
        MsgBox 'Вы выбрали пункт меню:' + vbCr + menuText, vbInformation, 'Информация:'
    End If
End Sub
'
Private Sub Form_Load()
    Dim dataArr(1 To 2, 0 To 3) As String
    Dim i As Integer, j As Integer
    Dim groupMenu As Long, elementMenu As Long
'
    Command1.Caption = 'Список элементов'
    Command1.Width = 2000
    Command1.Height = 500
'
    ' Создаём пустое всплывающее меню
    hMenu = CreatePopupMenu()
'
    ' Заполняем меню двухуровневой иерархией ваших элементов. Для определённости
    ' предполагаем, что все элементы читаются из БД в двумерный строковый массив,
    ' в нулевом элементе второго индекса которого хранится имя группы элементов.
    ' Чтобы не писать здесь код работы с базой (формат которой неизвестен), просто
    ' присвоим значения элементам массива напрямую:
'
    dataArr(1, 0) = 'Каши'
    dataArr(1, 1) = 'Овсяная'
    dataArr(1, 2) = 'Гречневая'