VB.Net/Class/Overload

Overload Constructor Demo

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

Using overloaded methods: Integer and Double

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