ASP.Net/Language Basics/Overload

Define Overloads method

<%@ 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("<b>New object "MyCar" created.</b>")
  Response.Write("<br/>Color: " & MyCar.Color)
  Response.Write("<br/>Gear: " & MyCar.Gear)
  MyCar.Color = "Black"
  MyCar.ChangeGear(+1)
  Response.Write("<br/><b>Properties updated.</b>")
  Response.Write("<br/>New color: " & MyCar.Color)
  Response.Write("<br/>New gear: " & MyCar.Gear)
  MyCar.ChangeGear("up")
  Response.Write("<br/><b>Shifted "up" one gear.</b>")
  Response.Write("<br/>New gear: " & MyCar.Gear)

End Sub
</script>