VB.Net/Language Basics/AndAlso

And and AndALso

<source lang="vbnet"> Imports System Imports System.Data Imports System.Collections public class MainClass

  Shared Sub Main()
       Dim testvar As New A()
       Console.WriteLine("Before IsFalse And IsFalse")
       If testvar.IsFalse And testvar.IsFalse Then
       End If
       Console.WriteLine("Before IsFalse AndAlso IsFalse")
       If testvar.IsFalse AndAlso testvar.IsFalse Then
       End If
  End Sub

End Class

   Class A
       Public ReadOnly Property IsTrue() As Boolean
           Get
               Console.WriteLine("IsTrue was called")
               Return True
           End Get
       End Property
       Public ReadOnly Property IsFalse() As Boolean
           Get
               Console.WriteLine("IsFalse was called")
               Return False
           End Get
       End Property
   End Class

      </source>

Truth table for AndAlso

<source lang="vbnet"> 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

      </source>