Public Class Form1
 
    Private Sub DateiToolStripMenuItem_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles DateiToolStripMenuItem.Click
 
    End Sub
 
    Private Sub ÖffnenToolStripMenuItem_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles ÖffnenToolStripMenuItem.Click
        'Entspricht "Datei->Öffnen"
        Dim Dlg As New OpenFileDialog
        Dlg.Filter = "Excel-Dateien (*.xls)|*.xls"
        Dlg.ShowDialog()
 
    End Sub
 
    Private Sub SpeichernunterToolStripMenuItem_Click(ByVal sender As _
      System.Object, ByVal e As System.EventArgs) Handles _
      SpeichernunterToolStripMenuItem.Click
        'Entspricht "Datei->Speichern unter"
        Dim saveFileDialog1 As New SaveFileDialog()
        saveFileDialog1.Filter = "Excel-Dateien (*.xls)|*.xls"
        saveFileDialog1.ShowDialog()
 
    End Sub
 
    Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs)
        'Entspricht "Datei->Beenden"
        Me.Close()
    End Sub
 
    Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
        'Excel Tabelle anzeigen
    End Sub
 
 
End Class