Class Module VB.Net Tutorial

  1. Home
  2. VB.Net Tutorial
  3. Class Module
  4. Two classes implement one 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