Excel VBA
Убедительно прошу помочь. Все что я мог сделал. Но квалифицированного советника у меня нет.
Создал класс с именем OBFlexGrid
В нем:
Public WithEvents FlexBox As MSFlexGrid
Public WithEvents Layer As MSForms.frame
Public WithEvents Text_box As MSForms.TextBox

Из этих трех объектов, при объявлении в Форме нового объекта OBFlexGrid методом этого класса Add создается элемент управления, которым можно управлять методами и свойствами, описанными в этом же классе. Все это работает.
Но раз все WithEvents обьявлени как Public, то они видны извне. А когда их объявляю как Private, то оно ни видны в самом модуле класса. Что и как нужно сделать, чтобы извне виделись только мои методы и свойства? И вообще правилно ли это у меня организовано.
На всякий случай приведу фрагмент кода в модуле класса OBFlexGrid. 'обявление и метод Add
Option Explicit
Public WithEvents FlexBox As MSFlexGrid
Public WithEvents Layer As MSForms.frame
Public WithEvents Text_box As MSForms.TextBox

Public FlexGROUP As New OBFlexGrid

Public Sub Add(Form As Object, Left As Integer, Top As Integer, Width As Integer, Height As Integer)
With Form
Set FlexGROUP.FlexBox = .Controls.Add("MSFlexGridLib.MSFlexGrid.1")
Set FlexGROUP.Layer = .Controls.Add("Forms.Frame.1")
Set FlexGROUP.Text_box = FlexGROUP.Layer.Controls.Add("Forms.TextBox.1")

FlexGROUP.Layer.BackColor = &HC0FFFF
FlexGROUP.Text_box.BackColor = &HC0FFFF
FlexGROUP.Text_box.SpecialEffect = fmSpecialEffectFlat
FlexGROUP.Layer.SpecialEffect = fmSpecialEffectFlat
FlexGROUP.Text_box.Top = -0.5
FlexGROUP.Text_box.Left = -2.5
FlexGROUP.Layer.Visible = False

FlexGROUP.FlexBox.BackColorSel = &HFF8080
FlexGROUP.FlexBox.Left = Left
FlexGROUP.FlexBox.Top = Top
FlexGROUP.FlexBox.Width = Width
FlexGROUP.FlexBox.Height = Height
FlexGROUP.FlexBox.AllowUserResizing = flexResizeColumns
End With
End Sub
И далее остатние методы и свойства…

Worobjoff , все понял.
Класс создается для динамической подгрузки контролов и их отображения.
Из ваших ответов принцип понял и уже использую. Спасибо!