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 = CInt(A)
Console.WriteLine("And converted back to Integer: " + I.ToString())
End Sub
End Class