Public Class Form1
    Dim Taste(4) 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 4
            Taste(i) = New Button
            Controls.Add(Taste(i))
            Taste(i).Name = "Taste" & (1 + i).ToString
            Taste(i).Text = (1 + i).ToString
            Taste(i).BackColor = Color.Gold
            Taste(i).SetBounds(20 + 35 * i, 20, 35, 30)
            AddHandler Taste(i).MouseClick, AddressOf TasteDown
        Next
    End Sub
    Private Sub TasteDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs)
        Me.Text = DirectCast(sender, Control).Name
    End Sub
End Class