Dim lev As String
        lev = ReadValueCU("Software\Microsoft\Office\" & Label76.Text & _
          "\Outlook\Security", "Level1Remove")
        Dim c As Control
        Dim pb As PictureBox
        For Each c In Me.GroupBox8.Controls
            If TypeOf c Is PictureBox Then
                pb = CType(c, PictureBox)
                Dim s As String = lev
                For Each s1 As String In Split(s, ";")
                    ' ab hier beginnt mein großes problem
                    Select Case s1
                        Case pb.Name
                            pb.Image = ImageList1.Images(0)
                        Case Else
                            'pb.Image = ImageList1.Images(1)
                    End Select
                Next
            End If
        Next