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
|