Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim Taste(10) As Button, i As Integer
        For i = 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 gedrückt"
    End Sub