Public Class frmFürUC
 
  Dim ucArea As New Size(200, 200)
  Dim ucLoc As New Point(30, 20)
 
  Dim uclist As New List(Of UserControl1)
  Dim btnList As New List(Of Button)
 
  Dim btnGroup As New GroupBox With _
      {.Parent = Me, .Location = ucLoc, .Size = ucArea}
 
  Private Sub frmFürUC_Load(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles MyBase.Load
 
     Me.Height = ucLoc.Y + ucArea.Height + 30
     Me.Width = ucLoc.X + ucArea.Width + 10
 
     For i As Integer = 0 To 5
 
       Dim uc As New UserControl1 With _
       {.Headline = "Usercontrol Nummer " & CStr(i)}
 
       With uc
          .Parent = Me : .Location = ucLoc : .Size = ucArea 
          .Tag = CStr(i) : .Visible = False
       End With
 
       AddHandler uc.Closed, AddressOf ucClosed_Click
       uclist.Add(uc)
 
       Dim btn As New Button With {.Parent = btnGroup, _
          .Top = i * 30 + 10, .Left = 5, _
          .Width = ucArea.Width - 10, .Height = 26, _
          .Text = "Zeige UC " & CStr(i)}
       btn.Tag = CStr(i)
 
       AddHandler btn.Click, AddressOf btn_click
       btnList.Add(btn)
 
    Next i
  End Sub
 
  Private Sub ucClosed_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs)
 
     btnGroup.Visible = True
 
  End Sub
 
  Private Sub btn_click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs)
 
    Dim id As Integer = CInt(CType(sender, Button).Tag)
    btnGroup.Visible = False
    uclist(id).Visible = True
 
  End Sub
 
End Class