Imports System
Imports Microsoft.VisualBasic
Module DecimalCtorLDemo
Sub CreateDecimal( value As Long, valToStr As String )
Dim decimalNum As New Decimal( value )
Dim ctor As String = String.Format( "Decimal( {0} )", valToStr )
Console.WriteLine( "{0,-30}{1,22}", ctor, decimalNum )
End Sub
Sub Main( )
CreateDecimal( 0L, "0" )
End Sub
End Module