Constructors won't work?

---

Public Class Publication
Private fPublication As Publication
Private fTitle As String
Private fPublisher As String

Public Property Title As String
Get
Return fTitle
End Get
Set(ByVal value As String)
fTitle = value
End Set
End Property
Public Property Publisher As String
Get
Return fPublisher
End Get
Set(ByVal value As String)
fPublisher = value
End Set
End Property


Public Sub New()
fPublication = New Publication

End Sub
End Class
Public Class EPublication : Inherits Publication
Private fEPublication As EPublication
Private fFormats As List(Of String)
Private newFormats As List(Of String)
Private fPrice As Integer


Public ReadOnly Property Formats As List(Of String)
Get
Return fFormats
End Get

End Property








Public Sub New()

fEPublication = New EPublication
Title = ""
Publisher = ""

End Sub
Enum EFormatType
ePub
html
iBook
mobi
pdf
End Enum
End Class

---