Data Types VB.Net

Imports System
Imports Microsoft.VisualBasic
Module DecimalGetBitsDemo
    Sub ShowDecimalGetBits(ByVal Argument As Decimal)
        Dim Bits As Integer() = Decimal.GetBits(Argument)
        Console.WriteLine(Bits(3))
        Console.WriteLine(Bits(2))
        Console.WriteLine(Bits(1))
        Console.WriteLine(Bits(0))
    End Sub
    Sub Main()
        ShowDecimalGetBits(1D)
    End Sub
End Module