Private Sub Form_Load()
'oder:
'Private Sub sevXPForm1_Load()
 
 Dim mnuFile As MenuItem
 
  With MenuBar1.MenuItems
    'Main-Menü erstellen
    Set mnuFile = .Add("&Datei", "MenuFile")
 
    'Einträge in "Datei" erstellen
    .Add "&Neu ...", "new", mnuFile
    .Add "&Öffnen ...", "open", mnuFile
  End With
End Sub