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

Option Compare Database
Option Explicit
'установить ссылку на Microsoft Office
Private cb As Office.CommandBar
Private WithEvents cbb As Office.CommandBarButton
Private WithEvents cbb1 As Office.CommandBarButton
Private WithEvents cbb2 As Office.CommandBarButton
Private cb1 As Office.CommandBar
Private WithEvents cbb11 As Office.CommandBarButton
Private WithEvents cbb12 As Office.CommandBarButton
Private WithEvents cbb13 As Office.CommandBarButton
Private Sub Form_Open(Cancel As Integer)
 Set cb = Application.CommandBars.Add("CONTEXTMENU", msoBarPopup, False, True)
 Set cb1 = Application.CommandBars.Add("ffff", msoBarPopup, False, True)
 With cb
   Set cbb = .Controls.Add(1, , , , True)
     cbb.Caption = "RunTest"
     cbb.FaceId = 607
   Set cbb1 = .Controls.Add(1, , , , True)
     cbb1.BeginGroup = True
     cbb1.Caption = "RunTest1"
     cbb1.FaceId = 362
   Set cbb2 = .Controls.Add(msoControlButton, , , , True)
     cbb2.Caption = "RunTest2"
     cbb2.FaceId = 275
     End With
With cb1
    Set cbb11 = .Controls.Add(1, , , , True)
     cbb11.Caption = "RunTest"
     cbb11.FaceId = 601
    Set cbb12 = .Controls.Add(1, , , , True)
     cbb12.BeginGroup = True
     cbb12.Caption = "RunTest1"
     cbb12.FaceId = 361
   Set cbb13 = .Controls.Add(msoControlButton, , , , True)
     cbb13.Caption = "RunTest2"
     cbb13.FaceId = 274
     End With
Me.ВашеПоле1.ShortcutMenuBar = "CONTEXTMENU" 'или cb.Name
Me.ВашеПоле2.ShortcutMenuBar = "ffff" 'или cb1.Name
End Sub

Private Sub cbb_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
 'Ваша команда
    MsgBox "Test OK"
End Sub

Private Sub cbb1_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
 ' Ваша команда
    MsgBox "Test1 OK"
End Sub

Private Sub cbb2_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
MsgBox "Test2 OK"
End Sub

Private Sub Form_Close()
    Set cbb = Nothing
    Set cbb1 = Nothing
    Set cbb2 = Nothing
    cb.Delete
    Set cbb11 = Nothing
    Set cbb12 = Nothing
    Set cbb13 = Nothing
    cb1.Delete
End Sub

Me.Список12.ShortcutMenuBar = "ffff" 'или cb1.Name

Me.Работа.ShortcutMenuBar = "ffff" 'или cb1.Name