VB.Net/Class/Overload

Overload Constructor Demo

<source lang="vbnet"> Imports System Public Class MainClass

   Shared Sub Main(ByVal args As String())
      Dim timeObject As New Time(2005, 3, 25, 9, 35)
      Dim t2 As New Time(timeObject)
      timeObject.DisplayCurrentTime( )
      t2.DisplayCurrentTime( )
   End Sub

End Class

Public Class Time
   " Private variables
   Private Year As Integer
   Private Month As Integer
   Private Day As Integer
   Private Hour As Integer
   Private Minute As Integer
   Private Second As Integer = 30
   " Public methods
   Public Sub DisplayCurrentTime( )
        System.Console.WriteLine("{0}/{1}/{2} {3}:{4}:{5}", _
            Month, Day, Year, Hour, Minute, Second)
   End Sub "DisplayCurrentTime
   Public Sub New( _
   ByVal theYear As Integer, _
   ByVal theMonth As Integer, _
   ByVal theDate As Integer, _
   ByVal theHour As Integer, _
   ByVal theMinute As Integer)
      Year = theYear
      Month = theMonth
      Day = theDate
      Hour = theHour
      Minute = theMinute
   End Sub
   Public Sub New(existingObject As Time)
      Year = existingObject.Year
      Month = existingObject.Month
      Day = existingObject.Day
      Hour = existingObject.Hour
      Minute = existingObject.Minute
      Second = existingObject.Second
   End Sub
End Class "Time
          
      </source>

Using overloaded methods: Integer and Double

<source lang="vbnet"> Imports System Public Class MainClass

   Shared Sub Main(ByVal args As String())
     Console.WriteLine( "The square of Integer 7 is " & _
        Square(7) & vbCrLf & "The square of Double " & _
        "7.5 is " & Square(7.5) )
   End Sub
  Shared Function Square(ByVal value As Integer) As Integer
     Return Convert.ToInt32(value ^ 2)
  End Function " Square
  Shared Function Square(ByVal value As Double) As Double
     Return value ^ 2
  End Function " Square

End Class

      </source>