Incluir una clase

[AprendizNet]

Hola, estoy experimentando con clases, como hago esto, me sale error siempre...

Código HTML:

<script runat="server">

Public Class Bicicleta 
    Public Modelo as String 
    Public Precio as Double 
    Public NumeroDeVelocidades as Integer 
    Private Velocidad as Integer 

    Public Sub Acelerar(ByVal km As Integer) 
       Velocidad = Velocidad + km 
    End Sub 

    Public Sub Frenar() 
       If Velocidad > 0 Then 
          Velocidad = Velocidad -1 
       End If 
    End Sub 

    Public Function ConsutarVelocidad() As Integer 
       Return Velocidad 
    End Function 
End Class

Dim objBicicleta as Bicicleta = New Bicicleta 

Dim VelocidadActual as Integer 
objBicileta.Modelo = "Montaña" 
objBicicleta.Precio = 200 
objBicicleta.NumeroDeVelocidades = 21 

objBicicleta.Acelerar(5) 
objBicicleta.Frenar() 

VelocidadActual = objBicicleta.ConsultarVelocidad

Response.write VelocidadActual

</script> 

Gracias