Private Function ButtonBlauFaerben(ByVal Button As Button)
        For Each a As Button In Me.Controls 'Für jeden Button ausführen
            If a.Name = Button.Name Then 'Wenn der Button den angegebenen Namen 
            ' hat, dann:
                a.BackColor = Color.Blue 'Blau färben
            Else 'Wenn nicht, dann:
                a.BackColor = Color.Gray 'Grau färben
            End If
        Next
    End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        ButtonBlauFaerben(Button1)
    End Sub

______________________________________


www.fk-freeware.de.vu