Imports System
Imports System.Runtime.InteropServices
Structure ExampleStructure
Public a As Integer ' 4 bytes
Public b As Double ' 8 bytes
End Structure
Public Class Program
Public Shared Sub Main(ByVal args() As String)
Dim sizeOfStructure As Integer = Marshal.SizeOf(GetType(ExampleStructure))
Console.WriteLine(sizeOfStructure)
End Sub
End Class
' run:
'
' 16
'