Private Function tsSymbolleistenString() As String
        Dim tsTemp As Object
        Dim Setting As String = ""
        For Each tsTemp In tsContainer.TopToolStripPanel.Controls
            If TypeOf tsTemp Is System.Windows.Forms.ToolStrip And tsTemp.name _
              <> "tsMenüstrip" Then
                Setting &= IIf(Setting = "", "", "|") & tsTemp.name & ";" & IIf( _
                tsTemp.visible, "+", "-") & _
                ";" & tsTemp.location.x & ";" & tsTemp.location.y
            End If
        Next
        tsSymbolleistenString = Setting
    End Function
 
    Private Sub tsSymbolleistenRestore(ByVal Setting As String)
        Dim vaLeiste() As Object = Split(Setting, "|")
        Dim vaSetting() As Object
        Dim tsLeiste As System.Windows.Forms.ToolStrip
        Dim i As Integer
        For i = 0 To UBound(vaLeiste)
            vaSetting = Split(vaLeiste(i), ";")
            If UBound(vaSetting) = 3 Then
                Try
                    tsLeiste = tsContainer.TopToolStripPanel.Controls(vaSetting( _
                      0))
                    tsLeiste.Visible = vaSetting(1) = "+"
                    tsLeiste.Left = vaSetting(2)
                    tsLeiste.Top = vaSetting(3)
                Catch ex As Exception
                    Debug.WriteLine(ex.ToString)
                End Try
            End If
        Next
    End Sub