Ошибка при динамическом создании флажка в форме пользователя

---

Я нашел следующий код на этой веб-странице:
http://www.office-loesung.de/ftopic220336_0_0_asc.php

Public WithEvents cmdCommandButton As CommandButton
Option Explicit

Dim CommandButtons(15) As clsCommandButtons

Private Sub UserForm_Initialize()
Dim zaehler As Long
For zaehler = 0 To 15
    Set CommandButtons(zaehler) = New clsCommandButtons
    Set CommandButtons(zaehler).cmdCommandButton = Me.Controls(zaehler)
Next
End Sub
Private Sub UserForm_Terminate()
Dim zaehler As Long
For zaehler = 0 To 15
    Set CommandButtons(zaehler) = Nothing
Next
End Sub

Сначала я изменил части кода, и это не сработало, я получил следующее сообщение:
Ошибка компиляции: пользовательский тип не определен

Поэтому я использовал исходный код и попробовал еще раз, но получил ту же ошибку. Что - то не так с кодом?


Редактировать:
Он работает после помещения первой строки в дополнительный класс с именем clsCommandButtons. К сожалению, это не совсем ясно в тексте веб-страницы

---