Truth table for AndAlso
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