Private Function overloadedEqualityOperatorExample() As Boolean
    ' Initialize new rectangle.
    Dim myRectangle As New Rect()

    ' The Location property specifies the coordinates of the upper left-hand 
    ' corner of the rectangle. 
    myRectangle.Location = New Point(10, 5)

    ' Set the Size property of the rectangle with a width of 200
    ' and a height of 50.
    myRectangle.Size = New Size(200, 50)

    ' Create second rectangle to compare to the first.
    Dim myRectangle2 As New Rect()
    myRectangle2.Location = New Point(0, 0)
    myRectangle2.Size = New Size(200, 50)

    ' Check if the two Rects are exactly equal using the overloaded equality operator.
    ' areEqual is false because although the size of each rectangle is the same,
    ' the locations are different.
    Dim areEqual As Boolean = (myRectangle = myRectangle2)

    ' Returns false.
    Return areEqual

End Function