Добрый вечер!
У меня есть вот такой код:

Option Compare Database
Option Explicit
Private WithEvents cbb1 As Office.CommandBarButton
Private WithEvents cbb2 As Office.CommandBarButton
Private WithEvents cbb3 As Office.CommandBarButton
Private cb As Office.CommandBar
Private Sub Form_Close()
Set cbb1 = Nothing
Set cbb2 = Nothing
Set cbb3 = Nothing
cb.Delete
Set cb = Nothing
   End Sub
Private Sub Form_Open(Cancel As Integer)
Set cb = Application.CommandBars.Add("CONTEXTMENU" & Me.Hwnd, 5, , True)
Set cbb1 = cb.Controls.Add(1, , , , True)
    cbb1.Caption = "Строка1"
    cbb1.FaceId = 423
Set cbb2 = cb.Controls.Add(1, , , , True)
    cbb2.Caption = "Строка2"
    cbb2.FaceId = 420
Set cbb3 = cb.Controls.Add(1, , , , True)
    cbb3.Caption = "Строка3"
    cbb3.FaceId = 430
Список12.ShortcutMenuBar = cb.Name
End Sub

Этот код для Список12.
Всё замечательно.

Как мне сделать второе контекстное меню для Список 13 (другое. На пример Строка10, Строка11, Строка12...)
Спасибо!

http://www.sql.ru/forum/1217833/kak-mne-sdelat-2-kontekstnoe-menu