Mega Code Archive

 

Categories / VB.Net / Class

 

Using overloaded methods

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