for i = 1 to 60
 
Controls("Button" & i).visible = true
 
next

EALA FREYA FRESENA

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

For Each kvp As KeyValuePair(Of String, Button) In LetterButtons
    Dim letter As String = kvp.Key
    Dim letterbutton As Button = kvp.Value
    letterbutton.ForeColor = Color.Red
Next kvp