Imports System
Imports System.Data
Imports System.Collections
publicclass MainClass
Shared Sub Main()
Dim A As Boolean
Dim I As Integer
A = True
I = CInt(A)
Console.WriteLine("True Value of Boolean in Integer is: " + I.ToString())
A = False
I = CInt(A)
Console.WriteLine("False Value of Boolean in Integer is: " + I.ToString())
End Sub
End Class