System VB.Net by API

public class Test
   public Shared Sub Main
        Dim D1, D2 As Decimal
        D1 = 10
        D2 = 5.7
        Console.WriteLine(Decimal.GetBits(3).GetValue(0))
   End Sub
End class