..
'Auswahldialog für Spitzen
spnSpitzen.Clear
spnSpitzen.Add("mit 1")
spnSpitzen.Add("mit 2")
spnSpitzen.Add("mit 3")
spnSpitzen.Add("mit 4")
..
Sub btnSpitzen_CheckedChange(Checked As Boolean)
If btnAnzeige.Checked = True Then
spnSpitzen.Clear
spnSpitzen.Add("mit 1")
spnSpitzen.Add("mit 2")
spnSpitzen.Add("mit 3")
spnSpitzen.Add("mit 4")
Else
spnSpitzen.Clear
spnSpitzen.Add("ohne 1")
spnSpitzen.Add("ohne 2")
spnSpitzen.Add("ohne 3")
spnSpitzen.Add("ohne 4")
End If
End Sub