Dim childFormsSteuerung(5) As Steuerung
    Dim childFormSteuerung As Integer = 0
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
 
        childFormSteuerung += 1
        childFormsSteuerung(childFormSteuerung) = New Steuerung()
        childFormsSteuerung(childFormSteuerung).Text = "Steuerung " &_ 
        childFormSteuerung
        childFormsSteuerung(childFormSteuerung).MdiParent = Me
        childFormsSteuerung(childFormSteuerung).Show()
 
    End Sub

Imports System.Threading
 
Public Class Steuerung
 
    Private Sub Steuerung_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        Dim i As Integer
        Dim Position As Point
        Dim Größe As System.Drawing.Size
        Dim Bttn As System.Windows.Forms.Button
        Dim Lbl As System.Windows.Forms.Label
 
        For i = 0 To 10
 
             With Position
                 .X = 25
                 .Y = 25 + (50 * i)
             End With
 
             With Größe
                  .Height = 25
                  .Width = 100
             End With
 
             Bttn = New System.Windows.Forms.Button
 
             With Bttn
                  AddHandler .Click, AddressOf Button_click
                  .Name = "Button" & i
                  .Text = "Button" & i
                  .Location = Position
                  .Size = Größe
                Me.Controls.Add(Bttn)
             End With
 
        Next i
 
    End Sub
 
    Private Sub Button_click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs)
 
        MsgBox(sender.text)
 
    End Sub
 
End Class