myGraphics.ReleaseHdc(hdc)

    Dim doc As New PdfDocument()
    doc.Pages.Add(New PdfPage())
    Dim xgr As XGraphics = XGraphics.FromPdfPage(doc.Pages(0))
    Dim img As XImage = XImage.FromFile(myGraphics.GetHdc)

    xgr.DrawImage(img, 0, 0)
    doc.Save("E:out.pdf")
    doc.Close()


    '  myBmp.Save("E:out.bmp")

    myGraphics.Dispose()
    myGraphics = Nothing

    myBmp = Nothing