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

InteropServices.Marshal

   
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