Dim i As Integer
    For i = 1 To 6
      Load mnuMenu(i)
        mnuMenu(i).Caption = "Menü " & i
         '.....
    Next i

Private Sub mnuMenu_Click(Index As Integer)
  'Anweisungen mit Abfrage des Index
  Select Case Index
     Case 0
        'Anweisung
     Case 1
        'Anweisung
   End Select
End Sub

Gru? aus dem Norden
manyki