Private Sub MenuItem7_Select(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles MenuItem7.Select
 
        StatusBar1.Panels(0).Text = "Datei beenden"
 
    End Sub
 
    Private Sub MenuItem10_Select(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MenuItem10.Select
 
        StatusBar1.Panels(0).Text = "Datei öffnen"
 
    End Sub