Imports System
Imports System.Data
Imports System.Collections
publicclass MainClass
Shared Sub Main()
Dim A As Boolean
Dim I As Integer
I = 5
A = CBool(I)
Console.WriteLine("Value of Boolean assigned from 5 is : " + A.ToString())
I = 0
A = CBool(I)
Console.WriteLine("Value of Boolean assigned from 0 is : " + A.ToString())
I = -1
A = CBool(I)
Console.WriteLine("Value of Boolean assigned from -1 is : " + A.ToString())
I = -5
A = CBool(I)
Console.WriteLine("Value of Boolean assigned from -5 is : " + A.ToString())
End Sub
End Class