'Class name: clsCurrentLabel'

Option Compare Database
Option Explicit

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

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

Public Property Set Label(lblNewLabel As Label)
    Set mlbl = lblNewLabel
    mlbl.OnMouseDown = "[Event Procedure]"
    Set mfrm = mlbl.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 mlblLabel_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    mfrm.CurrentLabelName = mlbl.Name    
    If Button = acRightButton Then mcmb.ShowPopup
End Sub

Public CurrentLabelName As String
Private colсlbls As New Collection

Private Sub Form_Load()
    Dim clbl As clsCurrentLabel

    Set clbl = New clsCurrentLabel
    Set clbl.Label = Me.lblLabel  '<-- это Label на форме'
    Set clbl.CommandBar = Application.CommandBars("cmbMyCommandBar") '<-- а это всплывающее меню'
    colclbls.Add clbl, clbl.Label.Name
    Set clbl = Nothing
End Sub