Visual Basic

<StructLayout(LayoutKind.Sequential, Pack:=1)> _
 Public Structure FILEHEADER
    <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=4)> Dim magic As String
    Dim offset As UInt32
    <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=8)> Dim version As String
    Dim fileSize As UInt32
    Dim dittoKey As UInt32
    Dim genericSize As UInt32
    Dim industrySize As UInt32
    Dim userSize As UInt32
    <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=100)> Dim fileName As String
    <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=24)> Dim timedate As String
    <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=100)> Dim creator As String
    <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=200)> Dim project As String
    <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=200)> Dim copyright As String
    Dim encryptKey As UInt32
    <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=104)> Dim Reserved As String
End Structure

Sub Main()
    Dim fh As FILEHEADER = New FILEHEADER
    ByteArray = GetBytesFromFile(myFile)
    Dim MyGC As GCHandle = GCHandle.Alloc(ByteArray, GCHandleType.Pinned)
    fh = DirectCast(Marshal.PtrToStructure(MyGC.AddrOfPinnedObject, GetType(FILEHEADER)), FILEHEADER)
    MyGC.Free()

    Console.WriteLine("Magic:" & fh.magic)
    Console.WriteLine("Offset:" & fh.offset)
    Console.WriteLine("Version:" & fh.version)
    Console.WriteLine("File Size:" & fh.fileSize)
    Console.WriteLine("Ditto Key:" & fh.dittoKey)
    Console.WriteLine("Generic Size:" & fh.genericSize)
    Console.WriteLine("Industry Size:" & fh.industrySize)
    Console.WriteLine("User Size:" & fh.userSize)
    Console.WriteLine("File Name:" & fh.fileName)
    Console.WriteLine("Time-Date:" & fh.timedate)
    Console.WriteLine("Creator:" & fh.creator)
    Console.WriteLine("Project:" & fh.project)
    Console.WriteLine("Copyright:" & fh.copyright)
    Console.WriteLine("Encrypt Key:" & fh.encryptKey)
    Console.WriteLine("Reserved:" & fh.Reserved)
    Console.WriteLine(StrDup(30, "-"))
    'Console.WriteLine("actFlatAct:" & String.Concat((From s In fh.ActFlatAct Select s.ToString("f2") & " ").ToArray))
    Console.WriteLine("FILEHEADER size:" & Marshal.SizeOf(fh))
    Console.ReadKey()

End Sub

Dim RGBArray(CInt((PicFile.Length - ft.Position) / 4 * 3) - 1) As Byte

For i = 0 To (RGBArray.Length - 1) Step 3
    ' change Endianness
    Dim buff As UInt32 = EndianConversion.SwapDWORD(brh.ReadUInt32)

    ' bit-shifting operation
    RGBArray(i) = (buff And &HFFC) >> 4           ' Blue
    RGBArray(i + 1) = (buff And &H3FFFFC) >> 14       ' Green
    RGBArray(i + 2) = (buff And &HFFFFFFFC) >> 24     ' Red

Next i