Option Explicit On 
Option Strict On
Namespace TopMidBot
    Public Class MidC
        Inherits TopC
        Private iMidF As Integer
        Public Sub New(ByVal pTopF As Integer, ByVal pMidF As Integer)
            MyBase.New(pTopF)
            iMidF = pMidF
        End Sub
        ReadOnly Property MidP() As Integer
            Get
                MidP = iMidF
            End Get
        End Property
        Overrides Public Function ToString() As String
            ToString = MyBase.ToString() + " " + iMidF.ToString()
        End Function
    End Class
End Namespace