File.Copy(e.FullPath, "C:\bilder\" & e.Name)
        Dim doc As New PrintDocument()
        doc.DocumentName = "C:\bilder\" & e.Name
 
        Dim dialog As New PrintDialog
        dialog.Document = doc
        doc.Print()