Option Explicit

Dim count As Integer

Sub AddMenu(ByVal mnuI As Object) 'as menu
If count = 0 Then count = count + 1
    Load mnuI(x)
    mnuI(x).Caption = "Menu Item " & x + 1 ' Ошибка!!пишет что объект не имеет таких свойств
    mnuI(x).Visible = True
End Sub

Private Sub Class_Initialize()
count =  0 
End Sub

Option Explicit

Dim count As Integer
Sub AddMenu(ByVal mnuI As Object, bolLoad As Boolean)  'as menu
If count =  0  Then count = count +  1 
If bolLoad Then Load mnuI(count)
    mnuI(count).Caption =  "Menu Item "  & count
    mnuI(count).Visible = True
End Sub
Private Sub Class_Initialize()
count =  0 
End Sub

Option Explicit


Sub AddMenu(ByVal mnuI As Object, strText As String, bolLoad As Boolean)  'as menu
Dim count As Integer
count = mnuI.Ubound

If bolLoad Then
    count = count +  1 
    Load mnuI(count)
Else
End If
    mnuI(count).Caption = strText
    mnuI(count).Visible = True
End Sub

Private Sub Class_Initialize()
End Sub

Private Sub Class_Terminate()
End Sub

Private clsM As clsMnu

Private Sub Form_Load()
Dim x As Integer
For x =  1  To  4 
    Load Mnu_1(x)
    Mnu_1(x).Caption =  "Menu Item "  & x +  1 
    Mnu_1(x).Visible = True
Next x
End Sub

Private Sub MDIForm_Load()
Set clsM = New clsMnu
clsM.AddMenu Mnu_1,  "Text" , False
clsM.AddMenu Mnu_1,  "Text 2 ", True
clsM.AddMenu Mnu_1,  "Text 3 ", True
clsM.AddMenu mnuMy,  "Main2" , True
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
Set clsM = Nothing
End
End Sub

Private Sub MDIForm_Load()
  Set clsM = New clsMnu
  clsM.AddMenu Mnu_1,  "Text" , False
  clsM.AddMenu Mnu_1,  "Text 2 ", True
  clsM.AddMenu Mnu_1,  "Text 3 ", True
  clsM.AddMenu mnuMy,  "Main2" , True
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
  Set clsM = Nothing
  End
End Sub