Option Compare Database

Private btn As CommandButton

Public Property Get CommandButton() As CommandButton
    Set CommandButton = btn
End Property

Public Property Set CommandButton(btn1 As CommandButton)
    Set btn = btn1
    btn.OnClick = "[event procedure]"
End Property

Public Sub btn_click()
    MsgBox "adasdadad"
End Sub

Dim btn As Class1

Set btn = New Class1
Set btn.CommandButton = Me.btn1

Private WithEvents lbl As Label
Private mfrm As Form
Private mcmb As CommandBar

Public Property Get Label() As Label
    Set Label = lbl
End Property

Public Property Set Label(lblNewLabel As Label)
    Set lbl = lblNewLabel
    lbl.OnMouseDown = "[Event Procedure]"
    Set mfrm = lbl.Parent
End Property

Public Property Get CommandBar() As CommandBar
    Set CommandBar = mcmb
End Property

Public Property Set CommandBar(cmbNewCommandBar As CommandBar)
    Set mcmb = cmbNewCommandBar
End Property

Private Sub lbl_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    mfrm.CurrentLabelName = lbl.Name
    If Button = acRightButton Then mcmb.ShowPopup
End Sub

Dim clbl As clsCurrentLabel
Private Sub Form_Load()
        Set clbl = New clsCurrentLabel
        Set clbl.Label = Me.[Надпись13] 
        Set clbl.CommandBar = Application.CommandBars("help") 'Здесь ошибка
End Sub

Private WithEvents lbl As Label
Private mfrm As Form
Private mcmb As CommandBar

Public Property Get Label() As Label
    Set Label = lbl
End Property

Public Property Set Label(lblNewLabel As Label)
    Set lbl = lblNewLabel
    lbl.OnMouseDown = "[Event Procedure]"
    Set mfrm = lbl.Parent
End Property

Public Property Get CommandBar() As CommandBar
    Set CommandBar = mcmb
End Property

Public Property Set CommandBar(cmbNewCommandBar As CommandBar)
    Set mcmb = cmbNewCommandBar
End Property

Private Sub lbl_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    mfrm.CurrentLabelName = lbl.Name
    If Button = acRightButton Then mcmb.ShowPopup
End Sub

Dim ColnLbls As Collection
Dim Clbl As clsCurrentLabel
'======== Функция начинается тут 
Set ColсLbls = New Collection
    For Each V In frm.Controls
        If V.ControlType = acSubform Then
            For Each V2 In V.Form.Controls
                If V2.ControlType = acLabel Then
                    If TypeName(V2.Parent) = "Form_" & V.SourceObject Then
                        Set Clbl = New clsCurrentLabel
                        Set Clbl.Label = frm(V.Name)(V2.Name) 
                        Set Clbl.CommandBar = Application.CommandBars("help")
                        ColсLbls.Add Clbl, Clbl.Label.Name
                        Set Clbl = Nothing
                    End If
                End If
            Next V2
        End If
        If V.ControlType = acLabel Then
            If TypeName(V.Parent) = "Form_" & frm.Name Then
                Set Clbl = New clsCurrentLabel
                Set Clbl.Label = frm(V.Name)
                Set Clbl.CommandBar = Application.CommandBars("help") 
                ColсLbls.Add Clbl, Clbl.Label.Name
                Set Clbl = Nothing
            End If
        End If
    Next V

Option Compare Database
Option Explicit

Private WithEvents lbl As Label
Private mfrm As Form
Private mcmb As CommandBar
Private IsSwitch As Boolean

Public Property Get Label() As Label
    Set Label = lbl
End Property

Public Property Set Label(lblNewLabel As Label)
    Set lbl = lblNewLabel
    lbl.OnMouseDown = "[Event Procedure]"
    Set mfrm = lbl.Parent
End Property

Public Property Get CommandBar() As CommandBar
    Set CommandBar = mcmb
End Property

Public Property Set CommandBar(cmbNewCommandBar As CommandBar)
    Set mcmb = cmbNewCommandBar
End Property

Public Property Get ShortcutMenu() As Boolean
    ShortcutMenu = IsSwitch
End Property

Public Property Let ShortcutMenu(Value As Boolean)
    IsSwitch = Value
End Property

Private Sub lbl_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    CurrentLabelID = lbl.HelpContextId
    If Button = acRightButton Then mcmb.ShowPopup
    lbl.ShortcutMenu = False 'Ошибка здесь
End Sub

Option Compare Database
Option Explicit

Private WithEvents lbl As Label
Private mfrm As Form
Private mcmb As CommandBar
Private IsSwitch As Boolean

Public Property Get Label() As Label
    Set Label = lbl
End Property

Public Property Set Label(lblNewLabel As Label)
    Set lbl = lblNewLabel
    lbl.OnMouseDown = "[Event Procedure]"
    Set mfrm = lbl.Parent
End Property

Public Property Get CommandBar() As CommandBar
    Set CommandBar = mcmb
End Property

Public Property Set CommandBar(cmbNewCommandBar As CommandBar)
    Set mcmb = cmbNewCommandBar
End Property

Private Sub lbl_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If mfrm.ShortcutMenu = True Then
        mfrm.ShortcutMenu = False
    End If
    CurrentLabelID = lbl.HelpContextId
    If Button = acRightButton Then mcmb.ShowPopup
    mfrm.TimerInterval =  10 
End Sub

Public Function CallHelp()
    Dim HTbl As DAO.RecordSet
        If CurrentLabelID >  0  Then
            Set HTbl = CurrentDb.OpenRecordset("select * from __temp_help where " _
                    & "H_ID = " & CurrentLabelID & "")
            If Not HTbl.EOF Then
                DoCmd.OpenForm "context_help"
                Forms!context_help!fld_TEXT = HTbl!H_TEXT
            End If
            HTbl.Close
        Else
            MsgBox "Справка по этому элементу не доступна", , "Справка"
        End If
End Function