Public Class frmLetterButtonsDemo
 
 
    Private Sub frm_Load(sender As System.Object, e As System.EventArgs) _
        Handles MyBase.Load
 
        CreateButtons()
        Me.Height = 600
    End Sub
 
 
    Dim LetterButtons As New Dictionary(Of String, Button)
 
 
    Private Sub CreateButtons()
 
        For i As Integer = 65 To 90
            Dim str As String = Microsoft.VisualBasic.Chr(i)
            Dim btn As New Button With _
            {.Text = str, .Parent = Me, .Top = (i - 65) * 22, .Height = 22}
 
            AddHandler btn.Click, AddressOf LetterButton_Clicked
            LetterButtons.Add(str, btn)
        Next i
 
        'Zugriff auf einen Button
        LetterButtons("M").BackColor = Color.White
    End Sub
 
 
   Private Sub LetterButton_Clicked(s As Object, e As EventArgs)
        MessageBox.Show("Buchstabe " & _
        DirectCast(s, Button).Text & " ist gedrückt worden")
    End Sub
 
End Class