Visual Basic

  ******** Declarations ******** <br />
    <pre>Private Declare Auto Function BitBlt Lib "GDI32.DLL" ( byVal hdcDest As IntPtr, ByVal nXDest As Integer, _<br />
        ByVal nYDest As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hdcSrc As Long, ByVal <br />
	nXSrc As Integer, ByVal nYSrc As Integer, ByVal dwRop As Int32) As Boolean<br />
<br />
    Private Declare Function LoadImage Lib "user32" Alias "LoadImageA" (ByVal hInst As Long, ByVal lpsz As String, _ <br />
ByVal dwImageType As Long, ByVal dwDesiredWidth As Long, ByVal dwDesiredHeight As Long, ByVal dwFlags As Long) As Long<br />
<br />
    Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long<br />
    Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long<br />
<br />
    Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long<br />
    Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long</pre><br />
<br />
 ******** Consts ******** <br />
    <pre>Private Const LR_LOADFROMFILE = &H10<br />
    Private Const IMAGE_BITMAP = 0<br />
    Private SRCCOPY as Integer = &HCC0020</pre><br />
<br />
<br />
 ******** Sub that won't work ******** <br />
   <pre> Private Sub ShowPicture(ByVal File As String)<br />
        Dim MemBmpHandle As Long<br />
        Dim MemHdc As Long<br />
        Dim Result As Long<br />
'<br />
        MemBmpHandle = LoadImage(0, File, IMAGE_BITMAP, 776, 84, LR_LOADFROMFILE)<br />
        MemHdc = CreateCompatibleDC(0)<br />
        Result = SelectObject(MemHdc, MemBmpHandle)<br />
' <br />
        Dim Grp As Graphics = PictureBox1.CreateGraphics ' Creating graphics object to BitBlt on<br />
        Dim TargetDC As IntPtr = Grp.GetHdc() 'Creating target HDC<br />
'<br />
        BitBlt(TargetDC, 0, 0, 776, 84, MemHdc, 0, 0, SRCCOPY) ' Blitting'<br />
<br />
        Grp.ReleaseHdc(TargetDC)<br />
        Grp.Dispose()<br />
        DeleteDC(MemHdc)<br />
        DeleteObject(MemBmpHandle)<br />
    End Sub