' Visual Basic 2008 9.0 .NET Examples - Implementation - Object Oriented Programming : 
Namespace Exercise1
    Class Addition
        Private m_Value1 As Integer
        Public Property Value1() As Integer
            Get
                Value1 = m_Value1
            End Get
            Set(ByVal value As Integer)
                m_Value1 = value
            End Set
        End Property
        Private m_Value2 As Integer
        Public Property Value2() As Integer
            Get
                Value2 = m_Value2
            End Get
            Set(ByVal value As Integer)
                m_Value2 = value
            End Set
        End Property
        Public Function GetResult() As Integer
            GetResult = Value1 + Value2
        End Function
    End Class
    Module AdditionTestFixture
        Sub Main()
            Dim addition1 As Addition = New Addition
            Console.WriteLine(addition1.Value1 = 0)
            Console.WriteLine(addition1.Value2 = 0)
            Console.WriteLine(addition1.GetResult() = 0)
            '
            addition1.Value1 = 1                                           ' (1)
            Console.WriteLine(addition1.Value1 = 1)
            Console.WriteLine(addition1.Value2 = 0)                        ' (2)
            Console.WriteLine(addition1.GetResult() = 1)
            '
            addition1.Value2 = 2
            Console.WriteLine(addition1.Value1 = 1)
            Console.WriteLine(addition1.Value2 = 2)
            Console.WriteLine(addition1.GetResult() = 3)
            '
            Console.ReadLine()
        End Sub
    End Module
End Namespace
' Visit www.studyvb.com for more examples.  Copyright 2003-2008 De Wolf.