<%@ page language="vb" 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