Private Sub StatusAddLabelPanel()
        If StatusStrip1.Items.Count > 0 Then
            For int_i As Integer = 0 To StatusStrip1.Items.Count - 1
                If StatusStrip1.Items(int_i).GetType().Name = _
                  "ToolStripStatusLabel" Then
                    Dim oldlable As New ToolStripStatusLabel
                    'oldlable = StatusStrip1.Items(int_i) <--- HIER IST MEIN 
                    ' PROB, wie weiter?
                    '->das soll passieren ->.....BorderStyle = 
                    ' Border3DStyle.Etched
                End If
 
            Next
        End If
 
        Dim lable As New ToolStripStatusLabel
        lable.Image = ImageList1.Images("frm_off")
        lable.BorderSides = ToolStripStatusLabelBorderSides.All
        lable.BorderStyle = Border3DStyle.SunkenInner
        lable.Text = "WINDOW(" & clientcount & ")"
        lable.TextAlign = ContentAlignment.MiddleLeft
        StatusStrip1.Items.Add(lable)
    End Sub