Dim pfad As String
        Dim Picturebox1 As New PictureBox
        File.Copy(e.FullPath, "C:\bilder\" & e.Name)
        pfad = "C:\bilder\" & e.Name
        Dim Bild As Bitmap = Image.FromFile(pfad)
        Picturebox1.Image = Bild