Imports System

Imports System.Collections.Generic

​

Public Module Module1

​

    Public Sub Main()

        Dim questions As New OrderQuestionCollection()

        questions.PrintQuestions()

    End Sub

End Module

​

Public Class CustomQuestionCollection

​

    Public Property Questions As List(Of Question)

​

    Public Sub PrintQuestions()

        If Questions IsNot Nothing Then

            For Each question In Questions

                Console.WriteLine(question.Text)

            Next

        Else

            Console.WriteLine("There are no questions!")

        End If

    End Sub

End Class

​

Public Class OrderQuestionCollection

    Inherits CustomQuestionCollection

​

    Public Overloads Property Questions As List(Of OrderQuestion)

​

    Public Sub New()

        Questions = New List(Of OrderQuestion)

        Questions.Add(New OrderQuestion With {.Text = "test"})

    End Sub

End Class

​

Public Class Question

​

    Public Property Id As Integer

​

    Public Property Text As String

​

    Public Property Answer As String

End Class

​

Public Class OrderQuestion

    Inherits Question

​

    Public Property [ReadOnly] As Boolean

End Class

​