写一段vba代码，使用类模块实现在用户窗体上生成十个动态标签控件，并且当点击任一个标签控件时，使其高亮显示，而同时其他标签控件回复原来的颜色

在VBA中，你可以使用类模块来创建自定义控件并管理其样式。下面是一个简单的示例，说明如何在一个用户窗体上创建十个动态的Label控件，并实现点击事件高亮功能：

' 定义一个名为MyLabel的类模块
Option Explicit
Public Class MyLabel
    Private m_BgColor As Long ' 存储原始背景色
    Public Sub Initialize(ByVal Caption As String)
        Dim i As Integer
        For i = 1 To 10
            Set lblNew = Me.Controls.Add("Forms.Label.1", "Label" & i, True)
            lblNew.Caption = Caption & " " & i ' 添加编号到每个标签
            lblNew.Font.ColorIndex = RGB(0, 0, 0) ' 黑色文本
            ' 保存初始背景色以便复原
            m_BgColor = lblNew.BackColor
            ' 给标签添加单击事件处理程序
            AddHandler lblNew.Click, AddressOf lbl_Click
        Next i
    End Sub

    Private Sub lbl_Click(Sender As Object)
        If Not (Sender Is Nothing And TypeOf Sender Is Label) Then
            On Error Resume Next ' 避免错误处理
            Dim lblCurrent As MyLabel
            Set lblCurrent = DirectCast(Sender, MyLabel)
            ' 当前标签设置为高亮
            lblCurrent.BackColor = RGB(255, 255, 0) ' 示例黄色高亮
            ' 其他标签恢复原始颜色
            For Each lblOther In Me.Controls
                If Not lblOther Is lblCurrent Then
                    lblOther.BackColor = m_BgColor
                End If
            Next lblOther
        End If
    End Sub
End Class

' 使用该类模块，在用户窗体的初始化时创建动态标签
Private Sub UserForm_Initialize()
    Dim objClass As New MyLabel
    objClass.Initialize "这是第1个标签:"
End Sub

在这个例子中，`MyLabel` 类负责创建标签、存储初始背景色以及处理点击事件。在`UserForm_Initialize` 中，我们实例化这个类并在用户窗体加载时生成标签。