将类模块存储为变量

Question

我在 aclass module和中写了一些代码userform_initialize_event。一切都没问题。但是当我 Dim 新的类模块并在初始化事件中应用时，它说变量未定义。这是我的代码 -

Dim Buttons() As New BtnClass

Private Sub UserForm_Initialize()

    Dim ButtonCount As Integer
    Dim ctl As Control
    '   Create the Button objects
    ButtonCount = 0
    
    For Each ctl In fmHover.Controls
        If TypeName(ctl) = "Label" Then
            ButtonCount = ButtonCount + 1
            ReDim Preserve Buttons(1 To ButtonCount)
            Set Buttons(ButtonCount).ButtonGroup = ctl
        End If
    Next ctl

End Sub

如果我在事件中调暗按钮，它不会引发任何错误，并且代码也不起作用。我搜索了很多地方。每个人都在初始化事件之前调暗新类。那么，为什么我的不起作用？请指出我的错误在哪里。

提前致谢。