Dim Ms As New MenuStrip
   Dim Datei As New ToolStripMenuItem
   Dim WithEvents DatenbankNew As New ToolStripMenuItem
   Dim WithEvents DatenbankOld As New ToolStripMenuItem
   Dim WithEvents Beenden As New ToolStripMenuItem
 
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles MyBase.Load
      ' Menüleiste mit Dateimenü
      Datei.Text = "Start" : DatenbankNew.Text = "Datenbank " & Year(Now) : _
        DatenbankOld.Text = "Datenbank " & Year(Now) - 1 : Beenden.Text = _
        "Beenden"
      Datei.DropDownItems.AddRange(New ToolStripItem() {DatenbankNew, _
      DatenbankOld, Beenden})
      Ms.Items.Add(Datei)
 
      Me.Controls.Add(Ms)