Dim canoe1 As Canoe = New Canoe()
Dim watercraft1 As Watercraft
watercraft1 = CType(canoe1, Watercraft)
Console.WriteLine(watercraft1.GetType.ToString)
watercraft1.Propel()
canoe1.Propel()

Public Class Watercraft
   Implements ITopSpeed

   Private mPrice As Double
   Private mTopSpeed As Integer
   Public mBrand As String

   Public Sub New()
   End Sub

  Public Sub New(ByVal TopSpeed As Integer,_
     ByVal Brand As String)
      mTopSpeed = TopSpeed
      mBrand = Brand
   End Sub

   Public Property TopSpeed() As Integer _
       Implements ITopSpeed.TopSpeed
      Get
         Return mTopSpeed
      End Get
      Set(ByVal Value As Integer)
         mTopSpeed = Value
      End Set
   End Property

   Public Overridable Sub Propel()
      Console.WriteLine("Watercraft is moving...")
   End Sub

   Public Property Price() As Double
      Get
         Return mPrice
      End Get
      Set(ByVal Value As Double)
         mPrice = Value
      End Set
   End Property
End Class

Public Class Canoe
   Inherits Watercraft
   Public Sub New()
   End Sub

   Public Sub New(ByVal TopSpeed As Integer, _
       ByVal Brand As String)
      MyBase.New(TopSpeed, Brand)
   End Sub
   Public Sub Paddle()
      Console.WriteLine("Canoe is paddling")
   End Sub

   Public Overrides Sub propel()
      Paddle()
   End Sub
End Class