• Öffne eine leere Form
  
• Starte den Menü-Editor von VB
  
• Trage in die "Caption"-Eigenschaften ein: TEST
  
• In das Feld "Name": MenuTest
  
• Dann klickst Du auf Nächster und anschliessend auf den Button mit dem Pfeil nach rechts.
  
• Klicke in das Eingabefeld "Caption" und gebe ein: Eintrag 1
  
• Klicke in das Eingabefeld "Name" und gebe ein: mnuTest
  
• Klicke in das Eingabefeld "Index" und gebe ein: 0
  
• Beende den Menüeditor mit "OK"
  

Private Sub Command1_Click()
  Dim iCount As Integer
 
  <font color=green>' weiteren Menüeintrag erstellen</font>
  iCount = mnuTest.UBound + 1
  Load mnuTest(iCount)
  With mnuTest(iCount)
    .Caption = "Eintrag " & CStr(iCount + 1)
    .Visible = True
  End With
End Sub