Decimal.GetBits Method Converts Decimal to binary representation.
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