ASP.Net/Language Basics/Overload

Define Overloads method

   <source lang="csharp">

<%@ page language="vb" runat="server" %> <script runat="server"> Public Class Car

 Private _Color As String
 Private _Gear As Integer
 Public Property Color As String
   Get
     Return _Color
   End Get
   Set
     _Color = value
   End Set
 End Property
 Public ReadOnly Property Gear As Integer
   Get
     Return _Gear
   End Get
 End Property
  Overloads Public Sub ChangeGear(direction As String)
   If direction = "down" Then ChangeGear(-1)
   If direction = "up" Then ChangeGear(+1)
 End Sub
 Sub New()
   _color = "cold grey steel"
 End Sub

End Class Sub Page_Load()

 Dim MyCar As New Car()
 Response.Write("New object "MyCar" created.")
 Response.Write("
Color: " & MyCar.Color)
 Response.Write("
Gear: " & MyCar.Gear)
 MyCar.Color = "Black"
 MyCar.ChangeGear(+1)
 Response.Write("
Properties updated.")
 Response.Write("
New color: " & MyCar.Color)
 Response.Write("
New gear: " & MyCar.Gear)
 MyCar.ChangeGear("up")
 Response.Write("
Shifted "up" one gear.")
 Response.Write("
New gear: " & MyCar.Gear)

End Sub </script>

      </source>