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
|