Dim Bild, Bild2 As String
        OpenFileDialog1.Filter = "JPG (*.jpg)|*.jpg|BMP files (*.bmp)|*.bmp"
        OpenFileDialog1.FileName = ""
        OpenFileDialog1.Title = "Cover auswählen"
        OpenFileDialog1.ShowDialog()
        'Pfad und Name der neuen Datei
        Bild = OpenFileDialog1.FileName
        'Pfad und Name der zu Original-Datei
        Bild2 = ToolStripMenuItem6.Text + lblTitel.Text + ".jpg"
        ' Copy neue Datei an die Stelle der Original-Datei wobei Original-Datei 
        '         überschrieben wird. Bei False bleibt sie als Kopie erhalten
        File.Copy(Bild, Bild2, True)
        'Neue Datei auf altem Platz auch löschen
        File.Delete(Bild)

Gruss Caddy