Class implicitly Inherits Object : Class Inheritance « Class Module « VB.Net Tutorial

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

Module Tester

   Sub Main()
      Dim point As CPoint

      point = New CPoint(2, 5) 

      Console.WriteLine("X coordinate is " & point.X & _
         vbCrLf & "Y coordinate is " & point.Y)

      point.X = 10 
      point.Y = 10 

      Console.WriteLine("The new location of point is " & point.ToString())

   End Sub ' Main

End Module

Public Class CPoint
   ' implicitly Inherits Object

   Private mX, mY As Integer

   Public Sub New()
      X = 0
      Y = 0
   End Sub
   
   Public Sub New(ByVal xValue As Integer,ByVal yValue As Integer)
      X = xValue
      Y = yValue
   End Sub ' New

   Public Property X() As Integer
      Get
         Return mX
      End Get

      Set(ByVal xValue As Integer)
         mX = xValue ' no need for validation
      End Set

   End Property ' X

   Public Property Y() As Integer
      Get
         Return mY
      End Get

      Set(ByVal yValue As Integer)
         mY = yValue ' no need for validation
      End Set

   End Property ' Y

   Public Overrides Function ToString() As String
      Return "[" & mX & ", " & mY & "]"
   End Function ' ToString

End Class

X coordinate is 2
Y coordinate is 5
The new location of point is [10, 10]