Private Sub Opendat_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Opendat.Click
        Dim openFileDialog1 As New OpenFileDialog
 
        With openFileDialog1
            .InitialDirectory = "C:\Dokumente und" & _
              "Einstellungen\Matthias\Desktop\Übung"
            .Filter = "Bilder (*.Jpg, *.jpeg, *.bmp)|*.Jpg;*.jpeg;*.bmp"
            .FilterIndex = 1
            .RestoreDirectory = False
 
            If .ShowDialog() = DialogResult.OK Then
                myStream = .FileName
                imagelist1_load()
                ListView1.Items.Add(myStream, imindex)
            End If
 
        End With
    End Sub
    Private Sub imagelist1_load()
        myImage = Image.FromFile(myStream)
        ImageList1.Images.Add(myImage)
        imindex = imindex + 1
    End Sub
 
 
    Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
        'hier solls passieren ;)
    End Sub