Public Class Triangle

    'inheart parallelogram
    Inherits Parallelogram
    Public Sub New()
        MyBase.New()
    End Sub

    Public Sub New(ByVal dblB As Double, ByVal dblH As Double)
        MyBase.New(dblB, dblH)
    End Sub

    'calculate area of the triangle
    Public Overrides Function GetArea() As Double
        Return MyBase.GetArea / 2
    End Function
End Class