Imports System
Imports Microsoft.VisualBasic
Module DecimalCtorUIDemo
Sub CreateDecimal( value As UInt32, valToStr As String )
Dim decimalNum As New Decimal( value )
Dim ctor As String = String.Format( "Decimal( {0} )", valToStr )
Console.WriteLine( "{0,-33}{1,16}", ctor, decimalNum )
End Sub
Sub Main( )
CreateDecimal( Convert.ToUInt32( 999999999 ), "999999999" )
End Sub
End Module