Imports System
Imports System.Data
Imports System.Collections
public class MainClass
Shared Sub Main()
Dim testvar As New A()
Console.WriteLine("Before IsTrue Or IsTrue")
If testvar.IsTrue Or testvar.IsTrue Then
End If
Console.WriteLine("Before IsTrue OrElse IsTrue")
If testvar.IsTrue OrElse testvar.IsTrue 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
| 
