BitBLT .NET

[cp_klewis]

Anyone have a clue as to why this code wont work


On Error GoTo errExc
Dim hgt As Integer = endPt - startPt

Dim myImage As System.Drawing.Image = New System.Drawing.Bitmap(1024, 768)
Dim gr1 As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(myImage)
Dim dc1 As IntPtr = gr1.GetHdc()

Dim myU As System.Drawing.Image = Image.FromFile("C:\temp1.png")
Dim gr2 As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(myU)
Dim dc2 As IntPtr = gr2.GetHdc()

BitBlt(dc1.ToInt64, 0, 0, 1024, 768, dc2.ToInt64, 0, 0, SRCCOPY)

myImage.Save("C:\te.png", System.Drawing.Imaging.ImageFormat.Png)