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