Visual Basic

Public Sub DisplayImage(ByVal PicFile As FileInfo, ByVal ImageOffset As UInteger, ByVal Width As UInteger, ByVal Height As UInteger)
        Dim arrayImage() As Byte = MakeRGBArray(PicFile, ImageOffset)                           <--- changed routine
        Dim gch As GCHandle = GCHandle.Alloc(arrayImage, GCHandleType.Pinned)
        Dim pBuf As IntPtr = gch.AddrOfPinnedObject

        PictureBox1.SizeMode = PictureBoxSizeMode.Zoom
        PictureBox1.Image = New Bitmap(Width, Height, 3 * Width, Imaging.PixelFormat.Format24bppRgb, pBuf)      <--- changed pixel format
        gch.Free()
    End If
End Sub

Private Function MakeRGBArray(ByVal PicFile As FileInfo, ByVal ImageOffset As UInteger) As Array
    Dim ft As FileStream = New FileStream(PicFile.FullName, FileMode.Open)
    Dim brh As BinaryReader = New BinaryReader(ft)

    ft.Position = ImageOffset          ' start with first pixel after the header

    Dim RGBArray(CInt((PicFile.Length - ft.Position) / 4 * 3) - 1) As Byte
    For i = 0 To (RGBArray.Length - 1) Step 3
        Dim buff As UInt32 = SwapDWORD(brh.ReadUInt32)
        ' bit-shifting operation
        RGBArray(i) = (buff And &HFFC) >> 4
        RGBArray(i + 1) = (buff And &H3FFFFC) >> 14
        RGBArray(i + 2) = (buff And &HFFFFFFFC) >> 24
    Next i

    ft.Close()
    brh = Nothing
    ft = Nothing

    Return RGBArray
End Function