Public Class Form1
 
   ' Generische Liste erzeugen
   Private m_ButtonList As New List(Of Button)
 
   Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
     Handles Me.Load
      ' Der Liste die Buttons zufügen
      With m_ButtonList
         .Add(Button1)
         .Add(Button2)
         .Add(Button3)
         .Add(Button4)
         .Add(Button5)
         .Add(Button6)
      End With
   End Sub
 
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) _
      Handles Button1.Click, Button2.Click, Button3.Click, Button4.Click, _
      Button5.Click, Button6.Click
 
      ' Erst alle Buttons in der Liste auf Grau setzen
      For Each b As Button In m_ButtonList
         b.BackColor = Color.Gray
      Next
 
      ' Den aktuell geclickten Button auf Blau setzen
      CType(sender, Button).BackColor = Color.Blue
   End Sub
End Class

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control