Public Sub Blt(ByVal img As Image, ByVal e As Graphics, ByVal rct As Rectangle)
Dim graph As Graphics = Graphics.FromImage(img)
Dim imgHDC As Long = graph.GetHdc.ToInt64
Dim hdc As Long = e.GetHdc.ToInt64
Dim retval As Long
retval = BitBlt(hdc, CRD_AREA.X, CRD_AREA.Y, CRD_AREA.Width, CRD_AREA.Height, imgHDC, 0, 0, &HCC0020)
graph.Dispose()
End Sub