Public Class Wizard
    Inherits Control
 
    Private _Pages As PageCollection = New PageCollection(Me)
 
    <DesignerSerializationVisibility(DesignerSerializationVisibility.Content)> _
    Public ReadOnly Property Pages As PageCollection
        Get
            Return Me._Pages
        End Get
    End Property
End Class

Imports System.ComponentModel
 
    Public NotInheritable Class PageCollection
    Inherits List(Of Page)
 
    Private _owner As Wizard
 
    Friend Sub New(ByVal owner As Wizard)
        Me._owner = owner
    End Sub
 
    Public Overloads Sub Add(ByVal item As Page)
        MyBase.Add(item)
        Me._owner.Controls.Add(item)
    End Sub
 
    Public Overloads Sub AddRange(ByVal items As IEnumerable(Of Page))
        MyBase.AddRange(items)
        Me._owner.Controls.AddRange(items)
    End Sub
 
    Public Overloads Sub Remove(ByVal page As Page)
        MyBase.Remove(page)
        Me._owner.Controls.Remove(page)
    End Sub
 
    Public Overloads Sub RemoveAt(ByVal index As Integer)
        MyBase.RemoveAt(index)
        Me._owner.Controls.RemoveAt(index)
    End Sub
End Class

Public Class Page
    Inherits Panel
 
    Public Sub New()
        Me.BackColor = Color.Aquamarine
    End Sub
 
End Class