'Author:
'   V. Sudharsan (vsudharsan@novell.com)
'
' (C) 2005 Novell, Inc.

Module ExpConversionDecimaltoByteA
	Sub Main()
		Dim i as Boolean = False
		try
			Dim a as Byte 
			Dim b as Decimal = 3000000000
			a = CByte(b)
		Catch e as System.Exception
				System.Console.WriteLine(" Arithmetic operation resulted in an overflow.")			
				i = True				
		End Try		
		if i = False Then
				System.Console.WriteLine("Decimal to Byte Conversion is not working properly.")		
		End if		
	End Sub
End Module