Reference Equality : Object « Class Module « VB.Net Tutorial

1. VB.Net Tutorial
2. Class Module
3. Object

Imports System

Module Test
  Sub Main()
    Dim f as New Class1("A", 1)
    Dim f2 as New Class1("A", 1)
    Console.WriteLine(f2.Equals(f))   
    f = f2
    Console.WriteLine(f2.Equals(f))   

  End Sub
End Module

Public Class Class1
  Private Name as String
  Private Value as Integer

  Public Sub New(Name as String, Value as Integer)
    Me.Name = Name
    Me.Value = Value
  End Sub

  Public Overrides Function ToString() as String
    Return(Name & " has the value " & Value)
  End Function
End Class

False
True