using System;
using System.Runtime.InteropServices;

[StructLayout(LayoutKind.Explicit)]
struct DWORD {
  // ダブルワード(オフセット0から4バイト分)を格納・参照するフィールド
  [FieldOffset(0)] public uint Value;

  // 下位ワード(オフセット0から2バイト分)を格納・参照するフィールド
  [FieldOffset(0)] public ushort LoWord;

  // 上位ワード(オフセット2から2バイト分)を格納・参照するフィールド
  [FieldOffset(2)] public ushort HiWord;
}

Imports System
Imports System.Runtime.InteropServices

<StructLayout(LayoutKind.Explicit)> _
Structure DWORD
  ' ダブルワード(オフセット0から4バイト分)を格納・参照するフィールド
  <FieldOffset(0)> Public Value As UInteger

  ' 下位ワード(オフセット0から2バイト分)を格納・参照するフィールド
  <FieldOffset(0)> Public LoWord As UShort

  ' 上位ワード(オフセット2から2バイト分)を格納・参照するフィールド
  <FieldOffset(2)> Public HiWord As UShort
End Structure

using System;
using System.Runtime.InteropServices;

// 4バイトアラインメント
[StructLayout(LayoutKind.Sequential, Pack = 4)]
struct S {
  byte F1; // 0〜3バイト目の領域を専有するフィールド (格納・参照できるのは1バイト分)
  int  F2; // 4〜7バイト目の領域を専有するフィールド (格納・参照できるのは4バイト分)
}

Imports System
Imports System.Runtime.InteropServices

' 4バイトアラインメント
<StructLayout(LayoutKind.Sequential, Pack := 4)> _
Structure S
  Dim F1 As Byte    ' 0〜3バイト目の領域を専有するフィールド (格納・参照できるのは1バイト分)
  Dim F2 As Integer ' 4〜7バイト目の領域を専有するフィールド (格納・参照できるのは4バイト分)
End Structure

using System;
using System.Runtime.InteropServices;

// 構造体のサイズに2を指定
[StructLayout(LayoutKind.Sequential, Size = 2)]
struct S {
  byte F;
}

Imports System
Imports System.Runtime.InteropServices

' 構造体のサイズに2を指定
<StructLayout(LayoutKind.Sequential, Size := 2)> _
Structure S
  Dim F As Byte
End Structure

using System;
using System.Runtime.InteropServices;

// フィールドのレイアウトを特に指定しない構造体
// (構造体内のフィールドはランタイムによって最適な位置に配置される
// そのため、フィールドの型や数によっては記述されている順序と実際の配置が異なる場合もありうる)
struct S1 {
  int F1;
  int F2;
}

// フィールドのレイアウトを特に指定しない構造体 (上記の構造体S1と同等)
[StructLayout(LayoutKind.Auto)]
struct S2 {
  int F1;
  int F2;
}

// StructLayoutにLayoutKind.Sequentialを指定した構造体
// (構造体内のフィールドは記述されたままの順序、つまりこの構造体S3ではF1→F2の順に配置される)
[StructLayout(LayoutKind.Sequential)]
struct S3 {
  int F1;
  int F2;
}

// StructLayoutにLayoutKind.Explicitを指定した構造体
// (構造体内のフィールドはFieldOffsetで指定されたオフセットに配置される
// この例ではF1は構造体の先頭から0バイト、F2は先頭から4バイトの位置に配置される)
[StructLayout(LayoutKind.Explicit)]
struct S4 {
  [FieldOffset(0)] int F1;
  [FieldOffset(4)] int F2;
}

Imports System
Imports System.Runtime.InteropServices

' フィールドのレイアウトを特に指定しない構造体
' (構造体内のフィールドはランタイムによって最適な位置に配置される
' そのため、フィールドの型や数によっては記述されている順序と実際の配置が異なる場合もありうる)
Structure S1
  Dim F1 As Integer
  Dim F2 As Integer
End Structure

' フィールドのレイアウトを特に指定しない構造体 (上記の構造体S1と同等)
<StructLayout(LayoutKind.Auto)> _
Structure S2
  Dim F1 As Integer
  Dim F2 As Integer
End Structure

' StructLayoutにLayoutKind.Sequentialを指定した構造体
' (構造体内のフィールドは記述されたままの順序、つまりこの構造体S3ではF1→F2の順に配置される)
<StructLayout(LayoutKind.Sequential)> _
Structure S3
  Dim F1 As Integer
  Dim F2 As Integer
End Structure

' StructLayoutにLayoutKind.Explicitを指定した構造体
' (構造体内のフィールドはFieldOffsetで指定されたオフセットに配置される
' この例ではF1は構造体の先頭から0バイト、F2は先頭から4バイトの位置に配置される)
<StructLayout(LayoutKind.Explicit)> _
Structure S4
  <FieldOffset(0)> Dim F1 As Integer
  <FieldOffset(4)> Dim F2 As Integer
End Structure

using System;
using System.Runtime.InteropServices;

// フィールドにFieldOffsetを指定した構造体
// (FieldOffsetを指定する場合はLayoutKind.Explicitを指定する必要がある)
[StructLayout(LayoutKind.Explicit)]
struct S1 {
  [FieldOffset(0)] int F1; // このフィールドは構造体の先頭から0バイトの位置に配置される
  [FieldOffset(4)] int F2; // このフィールドは構造体の先頭から4バイトの位置に配置される
}

[StructLayout(LayoutKind.Explicit)]
struct S2 {
  // フィールド同士を不連続に配置する(フィールドから参照されない領域を作る)こともできる
  [FieldOffset(4)]  int F1;
  [FieldOffset(12)] int F2;
}

Imports System
Imports System.Runtime.InteropServices

' フィールドにFieldOffsetを指定した構造体
' (FieldOffsetを指定する場合はLayoutKind.Explicitを指定する必要がある)
<StructLayout(LayoutKind.Explicit)> _
Structure S1
  <FieldOffset(0)> Dim F1 As Integer ' このフィールドは構造体の先頭から0バイトの位置に配置される
  <FieldOffset(4)> Dim F2 As Integer ' このフィールドは構造体の先頭から4バイトの位置に配置される
End Structure

<StructLayout(LayoutKind.Explicit)> _
Structure S2
  ' フィールド同士を不連続に配置する(フィールドから参照されない領域を作る)こともできる
  <FieldOffset(4)> Dim F1 As Integer
  <FieldOffset(12)> Dim F2 As Integer
End Structure

using System;
using System.Runtime.InteropServices;

[StructLayout(LayoutKind.Explicit)]
struct S1 {
  [FieldOffset(0)] public int F1;
  [FieldOffset(4)] public int F2;
}

class Sample {
  static void Main()
  {
    S1 s = new S1();

    // 各フィールドに値を設定
    s.F1 = 0x00112233;
    s.F2 = 0x44556677;

    // 各フィールドの値を表示
    Console.WriteLine("s.F1 = 0x{0:X8}", s.F1);
    Console.WriteLine("s.F2 = 0x{0:X8}", s.F2);
  }
}

Imports System
Imports System.Runtime.InteropServices

<StructLayout(LayoutKind.Explicit)> _
Structure S1
  <FieldOffset(0)> Public F1 As Integer
  <FieldOffset(4)> Public F2 As Integer
End Structure

Class Sample
  Shared Sub Main()
    Dim s As New S1()

    ' 各フィールドに値を設定
    s.F1 = &H00112233
    s.F2 = &H44556677

    ' 各フィールドの値を表示
    Console.WriteLine("s.F1 = 0x{0:X8}", s.F1)
    Console.WriteLine("s.F2 = 0x{0:X8}", s.F2)
  End Sub
End Class

using System;
using System.Runtime.InteropServices;

// デフォルトのアラインメント
struct S1 {
  byte F1;
  int  F2;
  int  F3;
}

// 1バイトアラインメント
[StructLayout(LayoutKind.Sequential, Pack = 1)]
struct S2 {
  byte F1;
  int  F2;
  int  F3;
}

// 2バイトアラインメント
[StructLayout(LayoutKind.Sequential, Pack = 2)]
struct S3 {
  byte F1;
  int  F2;
  int  F3;
}

// 4バイトアラインメント
[StructLayout(LayoutKind.Sequential, Pack = 4)]
struct S4 {
  byte F1;
  int  F2;
  int  F3;
}

class Sample {
  static void Main()
  {
    // 各構造体のフィールドのオフセットを表示する
    foreach (var type in new[] {typeof(S1), typeof(S2), typeof(S3), typeof(S4)}) {
      foreach (var field in new[] {"F1", "F2", "F3"}) {
        Console.WriteLine("OffsetOf({0}.{1}) = {2}", type, field, Marshal.OffsetOf(type, field).ToInt32());
      }
      Console.WriteLine();
    }
  }
}

Imports System
Imports System.Runtime.InteropServices

' デフォルトのアラインメント
Structure S1
  Dim F1 As Byte
  Dim F2 As Integer
  Dim F3 As Integer
End Structure

' 1バイトアラインメント
<StructLayout(LayoutKind.Sequential, Pack := 1)> _
Structure S2
  Dim F1 As Byte
  Dim F2 As Integer
  Dim F3 As Integer
End Structure

' 2バイトアラインメント
<StructLayout(LayoutKind.Sequential, Pack := 2)> _
Structure S3
  Dim F1 As Byte
  Dim F2 As Integer
  Dim F3 As Integer
End Structure

' 4バイトアラインメント
<StructLayout(LayoutKind.Sequential, Pack := 4)> _
Structure S4
  Dim F1 As Byte
  Dim F2 As Integer
  Dim F3 As Integer
End Structure

Class Sample
  Shared Sub Main()
    ' 各構造体のフィールドのオフセットを表示する
    For Each type As Type In New Type() {GetType(S1), GetType(S2), GetType(S3), GetType(S4)}
      For Each field As String In New String() {"F1", "F2", "F3"}
        Console.WriteLine("OffsetOf({0}.{1}) = {2}", type, field, Marshal.OffsetOf(type, field).ToInt32())
      Next
      Console.WriteLine()
    Next
  End Sub
End Class

using System;
using System.Runtime.InteropServices;

// デフォルトのサイズ
struct S1 {
  byte F1;
}

// 構造体のサイズに2を指定
[StructLayout(LayoutKind.Sequential, Size = 2)]
struct S2 {
  byte F1;
}

// 構造体のサイズに4を指定
[StructLayout(LayoutKind.Sequential, Size = 4)]
struct S3 {
  byte F1;
}

// 構造体のサイズに6を指定
[StructLayout(LayoutKind.Sequential, Size = 6)]
struct S4 {
  byte F1;
}

class Sample {
  static void Main()
  {
    // 各構造体のサイズを表示する
    foreach (var type in new[] {typeof(S1), typeof(S2), typeof(S3), typeof(S4)}) {
      Console.WriteLine("SizeOf({0}) = {1}", type, Marshal.SizeOf(type));
    }
  }
}

Imports System
Imports System.Runtime.InteropServices

' デフォルトのサイズ
Structure S1
  Dim F1 As Byte
End Structure

' 構造体のサイズに2を指定
<StructLayout(LayoutKind.Sequential, Size := 2)> _
Structure S2
  Dim F1 As Byte
End Structure

' 構造体のサイズに4を指定
<StructLayout(LayoutKind.Sequential, Size := 4)> _
Structure S3
  Dim F1 As Byte
End Structure

' 構造体のサイズに6を指定
<StructLayout(LayoutKind.Sequential, Size := 6)> _
Structure S4
  Dim F1 As Byte
End Structure

Class Sample
  Shared Sub Main()
    ' 各構造体のサイズを表示する
    For Each type As Type In New Type() {GetType(S1), GetType(S2), GetType(S3), GetType(S4)}
      Console.WriteLine("SizeOf({0}) = {1}", type, Marshal.SizeOf(type))
    Next
  End Sub
End Class

using System;
using System.Runtime.InteropServices;

// 構造体のサイズに2を指定
[StructLayout(LayoutKind.Sequential, Size = 2)]
struct S {
  // 4バイト分のフィールドを定義
  int F;
}

class Sample {
  static void Main()
  {
    Console.WriteLine("SizeOf(S) = {0}", Marshal.SizeOf(typeof(S)));
  }
}

Imports System
Imports System.Runtime.InteropServices

' 構造体のサイズに2を指定
<StructLayout(LayoutKind.Sequential, Size := 2)> _
Structure S
  ' 4バイト分のフィールドを定義
  Dim F As Integer
End Structure

Class Sample
  Shared Sub Main()
    Console.WriteLine("SizeOf(S) = {0}", Marshal.SizeOf(GetType(S)))
  End Sub
End Class