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