Module Module1

    Sub Main()
        CompareIntegers()
        Console.WriteLine("=======================")
        CompareClassObjects()
        Console.Write("Press Enter to Exit... ")
        Console.ReadLine()

    End Sub
    Private Sub CompareIntegers()
        Dim int1 As Integer
        Dim int2 As Integer

        Console.WriteLine("int1 = 1")
        int1 = 1
        Console.WriteLine("int1: " & int1)
        Console.WriteLine("------------------------")

        Console.WriteLine("int2 = int1")
        int2 = int1
        Console.WriteLine("int1: " & int1)
        Console.WriteLine("int2: " & int2)
        Console.WriteLine("------------------------")

        Console.WriteLine("int2 = 2")
        int2 = 2
        Console.WriteLine("int1: " & int1)
        Console.WriteLine("int2: " & int2)
        Console.WriteLine("------------------------")
    End Sub

    Private Sub CompareClassObjects()
        Dim obj1 As New ClassLibrary
        Dim obj2 As New ClassLibrary

        Console.WriteLine("obj1.Number = 1")
        obj1.Number = 1
        Console.WriteLine("Obj1: " & obj1.Number.ToString)
        Console.WriteLine("------------------------")

        Console.WriteLine("obj2 = obj1")
        obj2 = obj1
        Console.WriteLine("Obj1: " & obj1.Number.ToString)
        Console.WriteLine("Obj2: " & obj2.Number.ToString)
        Console.WriteLine("------------------------")

        Console.WriteLine("obj2.Number = 2")
        obj2.Number = 2
        Console.WriteLine("Obj1: " & obj1.Number.ToString)
        Console.WriteLine("Obj2: " & obj2.Number.ToString)
        Console.WriteLine("------------------------")
    End Sub


End Module

Public Class ClassLibrary
    Private num
    Public Property Number() As Integer
        Get
            Number = num
        End Get
        Set(ByVal Value As Integer)
            num = Value
        End Set
    End Property
End Class