Imports System
Imports System.Data
Imports System.Collections
publicclass 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