Private Sub AddFormsToMenu()
  <font color=green>' zunächst Menü säubern</font>
  While mnuAnsicht.UBound > 0
    Unload mnuAnsicht(mnuAnsicht.UBound)
  Wend
 
  <font color=green>' jetzt alle offenen Forms ermitteln und im Menü 
  ' anzeigen</font>
  Dim iFormCount As Integer
  Dim F As Form
 
  iFormCount = -1 
  For Each F In Forms
    iFormCount = iFormCount + 1
    If iFormCount > 0 Then Load mnuAnsicht(iFormCount)
    With mnuAnsicht(iFormCount)
      .Caption = F.Caption
      .Tag = F.Name
    End With
  Next
End Sub