Динамическое добавление MSFlexGrid (Excel VBA)

[Avtopic]

Имею собственный класс FlexObj
В нем находится все, что нужно мне для MSFlexGrid чтобы он бил коммуникабельнее (Визуально оформлен, можно вводить, копировать и далее).

Код: Выделить всё

Public WithEvents FlexBox As MSFlexGrid И Т.Д.

Далее ставлю на форму MSFlexGrid1
И в форме

Код: Выделить всё

Dim Flex1 As New FlexObj

Private Sub UserForm_Initialize()
Set Flex1.FlexBox = Me.MSFlexGrid1
End Sub
и Т.Д.

Посоветуйте, как можно добавить динамический MSFlexGrid
То ест, чтобы било не

Код: Выделить всё

Set Flex1.FlexBox = Me.MSFlexGrid1

а

Код: Выделить всё

Set Flex1.FlexBox = Me.Controls.Add (????FlexGrid????...)

как “выглядит” ( ProgID [, Name [, Visible]]) для MSFlexGrid. Или это вообще нельзя сделать с MSFlexGrid-ом

[Avtopic]

Нашел! Вернее, дошло.
Set Flex1.FlexBox = Me.Controls.Add("MSFlexGridLib.MSFlexGrid.1")