System VB.Net by API

Imports System
Imports System.Data
Imports System.Collections
public class 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