Two classes implement one interface : Interface « Class Module « VB.Net Tutorial

1. VB.Net Tutorial
2. Class Module
3. Interface

public class Test
   public Shared Sub Main
        Dim rect As New Rectangle()
        Dim trap As New Trapezoid()
        rect.Draw()
        trap.Draw()
   End Sub

End class

Public Interface IShape
    Function Draw() As String
End Interface
Public Class Rectangle
    Implements IShape
    Public Function Draw() As String Implements IShape.Draw
        Return "Drawing Rectangle"
    End Function
End Class
Public Class Trapezoid
    Implements IShape
    Public Function Draw() As String Implements IShape.Draw
        Return "Drawing Trapezoid"
    End Function
End Class