VB.Net by API/System.Runtime.InteropServices/InteropServices

InteropServices.Marshal

<source lang="vbnet"> Public Class Tester

   Public Shared Sub Main
   
       Dim result As New System.Text.StringBuilder
       Dim maxDecimal As Decimal = Decimal.MaxValue
       Dim sizeOfDecimal As Integer = Runtime.InteropServices.Marshal.SizeOf(maxDecimal.GetType)
       result.Append("Memory size of a Decimal (bytes): ")
       result.AppendLine(sizeOfDecimal)
       result.Append("Maximum value of a Decimal: ")
       result.AppendLine(maxDecimal)
       result.Append("Divided by one million: ")
       result.AppendLine(maxDecimal / 1000000D)
       result.Append("1D / 3D: ")
       result.AppendLine(1D / 3D)
       Console.WriteLine(result.ToString())
    End Sub

End Class

 </source>