Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e _
     As System.EventArgs) _
      Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged, _
              CheckBox3.CheckedChanged, CheckBox4.CheckedChanged
 
      Dim cb As CheckBox = DirectCast(sender, CheckBox)
      If cb.Checked Then
         cb.BackColor = Color.AliceBlue
      Else
         cb.BackColor = Color.FromKnownColor(KnownColor.Control)
      End If
   End Sub

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