Public Class Form1
    Dim Taste(10) As Button
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        For i As Int32 = 0 To 9
            Taste(i) = New Button
            Controls.Add(Taste(i))
            Taste(i).Text = Chr(65 + i)
            Taste(i).BackColor = Color.Gold
            Taste(i).Location = (New Size(20 + 35 * i, 20))
            Taste(i).Size = (New Size(35, 30))
            AddHandler Taste(i).MouseDown, AddressOf TasteDown
        Next
    End Sub
    Private Sub TasteDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs)
        Me.Text = "Taste " & sender.text & " wurde gelöscht"
        sender.dispose()
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Taste(2).Dispose()
    End Sub
End Class
 
MfG GPM