Public Class UserControl1
 
    Dim WithEvents btnExit As New Button _
         With {.Parent = Me, .Top = 50, .Width = 180}
    Dim lbl As New Label With {.Parent = Me, .Height = 30}
 
    Public Event Closed(ByVal sender As Object, ByVal e As EventArgs)
 
    Public WriteOnly Property Headline() As String
        Set(ByVal value As String)
            lbl.Text = value
        End Set
    End Property
 
    Private Sub UserControl1_Load(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles MyBase.Load
 
        btnExit.Text = "Beenden"
        Me.BackColor = Color.Yellow
        Me.Width = 200 : Me.Height = 100
    End Sub
 
    Public Sub btnExit_Click(ByVal sender As Object, _
        ByVal e As System.EventArgs) Handles btnExit.Click
        Me.Visible = False
        RaiseEvent Closed(Me, New EventArgs)
    End Sub
 
End Class

Public Class frmFürUC
    Dim uclist As New List(Of UserControl1)
 
    Private Sub frmFürUC_Load(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles MyBase.Load
        For i As Integer = 0 To 15
            Dim uc As New UserControl1 _
            With {.Headline = "Usercontrol Nummer " & CStr(i)}
            uc.Parent = Me : uc.Top = 20 : uc.Tag = CStr(i)
            AddHandler uc.Closed, AddressOf ucClosed_Click
            uclist.Add(uc)
        Next i
    End Sub
 
    Private Sub ucClosed_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs)
        Dim id As Integer = CInt(CType(sender, UserControl1).Tag)
        If id < 15 Then
            uclist(id + 1).Visible = True
        Else
            uclist(0).Visible = True
        End If
    End Sub
End Class