Module Tester Sub Main() Console.WriteLine("AndAlso" & vbCrLf & 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)) End Sub End Module
AndAlso False AndAlso False: False False AndAlso True: False True AndAlso False: False True AndAlso True: True