Imports System
Public Class MainClass
Shared Sub Main(ByVal args As String())
' create truth table for And
Console.Write("And" & vbCrLf & "False And False: " & _
(False And False) & vbCrLf & "False And True: " & _
(False And True) & vbCrLf & "True And False: " & _
(True And False) & vbCrLf & "True And True: " & _
(True And True) & vbCrLf & vbCrLf)
End Sub
End Class