Visual Basic

Public Sub DisplayImage(ByVal PicFile As FileInfo)
    Dim W As UInteger = 200
    Dim H As UInteger = 154
    Dim stride As UInteger = 4 * W
    Dim arrayImage() As UInt32 = MakePixelArray(PicFile)
    Dim gch As GCHandle = GCHandle.Alloc(arrayImage, GCHandleType.Pinned)
    Dim pBuf As IntPtr = gch.AddrOfPinnedObject

    PictureBox1.Width = W
    PictureBox1.Height = H
    PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
    PictureBox1.Image = New Bitmap(W, H, stride, Imaging.PixelFormat.Format32bppRgb, pBuf)
    gch.Free()
End Sub

Private Function MakePixelArray(ByVal PicFile As FileInfo) As Array
        Dim ft As FileStream = New FileStream(PicFile.FullName, FileMode.Open)
        Dim brh As BinaryReader = New BinaryReader(ft)
        ft.Position = 8192

        Dim PixelArray(CInt(PicFile.Length - ft.Position) / 4 - 1) As UInteger
        For i = 0 To (PixelArray.Length - 1)
            Dim buff As UInteger = SwapDWORD(brh.ReadUInt32)
            PixelArray(i) = buff
        Next i
        ft.Close()
        brh = Nothing
        ft = Nothing

        Return PixelArray
    End Function

Private Function SwapDWORD(ByVal i As UInt32) As UInt32
    Return ((i And &HFF) << 24) + ((i And &HFF00) << 8) + ((i And &HFF0000) >> 8) _
    + ((i >> 24) And &HFF)
End Function