Dim CoverSpeichern As New SaveFileDialog
            Dim img As Image = Image.FromHbitmap(CType(Me.PictureBox1.Image, _
              Bitmap).GetHbitmap)
            With CoverSpeichern
                .Filter = "JPEG (*.JPG, *.JPEG)|*.jpg"
                .Title = "Coverbild speichern"
 
                If .ShowDialog = DialogResult.OK Then
                    '// PictureBox1.Image.Save(.FileName, 
                    ' System.Drawing.Imaging.ImageFormat.Jpeg)
                    img.Save(.FileName, _
                      System.Drawing.Imaging.ImageFormat.Jpeg)
                End If
 
            End With