如何获取标签的名称

    Dim ctr As Control
    For Each ctr In Me.Controls
        If ctr.ControlType = 100 Then
            If ctr.Caption = "如何获取标签的名称" Then
                MsgBox ctr.Name
                Exit For
            End If
        End If
    Next