Module ImpConversionofBooltoByte
	Sub Main()
		Dim b as Boolean = False
		Dim a as Byte 
		if a <> 0 then 
			Throw New System.Exception("Implicit Conversion of Bool(False) to Byte has Failed. Expected 0, but got " & a)
		End if		
	End Sub
End Module