ник: час
Dim m_bt() As Object ' переменная типа объект
Private Sub Form_Load()
Dim bt As Object, i As Integer, cl As Object ' переменная типа объект, число объект
ReDim m_bt(2) ' размер массива
For i = 0 To UBound(m_bt) ' добавление элементов на форму
Set bt = Controls.Add("VB.CommandButton", "bt" & i)
bt.Visible = True
bt.Move (ScaleWidth - bt.Width) / 2, bt.Height * (i + 1)' добавление элементов на форму
Set cl = New clsBT ' Создаём экземпляр класса
Set cl.Button = bt
If i = UBound(m_bt) Then
bt.Tag = "#" ' отгуда то в tag "#"
bt.Caption = "Close"
Set cl.OwnerForm = Me ' это как то свойство класса OwnerForm почемуто равно форме ???
Else
bt.Caption = "Button " & i + 1
End If
Set m_bt(i) = cl ' это очередная кнопка - становиться классом???
Next i
End Sub