title: Incompatible interface
body: <p>Please see the code below:  </p>
  
  <pre><code>  Public Class clsCar
          Implements IVehicle
          Public Function getWheels() As Integer Implements IVehicle.getWheels
              Return 4
          End Function
      End Class
  
      Public Interface IVehicle
          Function getWheels() As Integer
      End Interface
  
      Public Class Form1
          Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
              Dim list As List(Of IVehicle) = New List(Of IVehicle)
              Dim v1 As IVehicle = New clsCar
              Dim v2 As IVehicle = New clsBus
              list.Add(v1)
              list.Add(v2)
              Dim IVehicle As IVehicle = New clsCar
              Dim IVehicle2 As IVehicle = New clsBus
              For Each IVehicle In list
                  MsgBox(IVehicle.getWheels())
              Next
          End Sub
      End Class
  </code></pre>
  
  <p>I want to add a new function to the clsBus class:</p>
  
  <pre><code>Public Function getWheels(ByVal strCarType As String) As Integer
          If strCarType = "Robin Ryliant" Then
              Return 3
          Else
              Return 4
          End If
      End Function
  </code></pre>
  
  <p>How do I call this from the FOR EACH statement? At the moment it will call getWheels with no arguments.</p>