Вот решил приведенной ниже фукцией создать в своем приложении еще один пункт меню (которое я создаю сам при загрузке) под названием "Окна" - чтобы можно было переключатся между открытыми формами...
Только вот незадача: Чтобы не ставить его в каждую форму "на открытие" (много их слишком ;)), вставил его в таймер одной из скрытых форм, открывающихся на загрузке базы. И вот, когда открываю новое свое меню и подвожу указатель на любой пункт (из перечисленных открытых форм) - происходит "размножение" некот.пунктов, что раздражает... Может неправильно делаю динамическую проверку/очистку этого подменю? Посмотрите, пожалуйста!:
'-----
Public Sub MenuOkna(Optional MenuVar As String = "custom")
On Error Resume Next
Dim mcus As Object
Set mcus = CommandBars(MenuVar)
If err <> 0 Then Exit Sub

Dim mpunkt As Object, mpunkt2 As Object
Set mpunkt = mcus.Controls("Окна")
If err <> 0 Then
err.Clear ': On Error GoTo 0
Set mpunkt = mcus.Controls.Add(10, , , , True)
mpunkt.Caption = "Окна"
Else
For Each mpunkt2 In mpunkt.Controls
mpunkt2.Delete
Next
End If

If Forms.Count > 1 Then
Dim loform As Form
For Each loform In Forms
If loform.Visible And loform.Name <> "MainForm" Then
Set mpunkt2 = mpunkt.Controls.Add(1, , , , True)
mpunkt2.Caption = loform.Caption
mpunkt2.OnAction = "=ViewForm(" & Chr$(34) & loform.Name & Chr$(34) & ")"
End If
Next
End If
'mpunkt.Visible = True

End Sub