Private Sub lstKomponente_SelectedIndexChanged(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles lstKomponente.SelectedIndexChanged
 
'etwas code
 
For Each ctl As Control In Me.Controls
            If TypeOf ctl Is CheckBox Then
                Debug.Print("CheckBox gefunden -> löschen")
                ctl.Dispose()
                ctl = Nothing
            End If
        Next
        For Each ctl As Control In Me.Controls
            If TypeOf ctl Is Label Then
                Debug.Print("Label gefunden -> löschen")
                ctl.Dispose()
                ctl = Nothing
            End If
        Next
 
'etwas code
 
For i As Integer = 0 To list.Count - 1
            Debug.Print("Times: " & times.ToString)
            'checkboxen erstellen und platzieren
            Dim chk As New CheckBox
            chk.Parent = Me
            AddHandler CType(chk, CheckBox).CheckedChanged, AddressOf _
              MeinEreignis_CheckedChanged
            Dim c As clsKomponente.ComponentInfo
            c = list.Item(i)
            Debug.Print("Komponente: " & c.Name & " " & c.Number)
            Dim pchk As New Point
            pchk.X = Me.lstKomponente.Left + Me.lstKomponente.Width + 20
            pchk.Y = Me.lstKomponente.Top + times * 80
            chk.Location = pchk
            chk.Text = c.KomposTyp
            'labels erstellen und platzieren
            Dim lbl As New Label
            AddHandler CType(lbl, Label).TextChanged, AddressOf _
              MeinEreignis_TextChanged
            lbl.Parent = Me
            Dim plbl As New Point
            plbl.X = Me.lstKomponente.Left + Me.lstKomponente.Width + 20
            plbl.Y = Me.lstKomponente.Top + 30 + times * 80
            lbl.Height = 50
            lbl.Width = Me.Right - lbl.Left
            lbl.Location = plbl
            lbl.Text = csName & c.Name & vbCrLf & _
                       csNr & c.Number & vbCrLf & _
                       csVersion & c.Version
            Debug.Print(lbl.Text)
            'entscheiden ob choosen = true oder false
            'checkbox markieren
            If c.Choosen = True Then
                chk.Checked = True
            Else
                chk.Checked = False
            End If
            times += 1
        Next