<StructLayout(LayoutKind.Sequential)> _
        Public Structure BS
            <FieldOffset(&H0), MarshalAs(UnmanagedType.ByValArray, _
              SizeConst:=3)> Public bJmp As Byte()
        End Structure

            Dim BPB As New BS
            BPB.bJmp(0) = CByte(0)
            BPB.bJmp(1) = CByte(1)
            BPB.bJmp(2) = CByte(2)