Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.SetBounds(50, 50, 400, 100)
        For i As Int32 = 0 To 9
            Dim Button As New Button
            Button.Name = "Button" & (1 + i).ToString
            Button.Text = (1 + i).ToString
            Button.SetBounds(20 + 35 * i, 20, 35, 30)
            Controls.Add(Button)
            AddHandler Button.MouseDown, AddressOf Mouse_Down
        Next
    End Sub
    Private Sub Mouse_Down(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs)
        For i As Int32 = Me.Controls.Count - 1 To 0 Step -1
            If Me.Controls(i).Location.X < 170 Then            'Die ersten 5 
            ' entfernen
                Me.Controls.RemoveAt(i)
            End If
        Next
    End Sub
End Class