Dim strPath As String
        strPath = "C:\Programme\Crox Corporation\SystrayTB\Notices\"
        Dim dlb As Microsoft.VisualBasic.Compatibility.VB6.DirListBox
        dlb = New Microsoft.VisualBasic.Compatibility.VB6.DirListBox()
        dlb.Path = strPath
        Dim i As Byte
        For i = 0 To 4
            dlb.Items.RemoveAt(0)
        Next
        i = 0
        Do Until i = dlb.Items.Count
            Me.lstBloecke.Items.Add(dlb.Items.Item(i))
            i = i + 1
        Loop
    End Sub
    Private Sub lstBloecke_SelectedIndexChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles lstBloecke.SelectedIndexChanged
        Dim strBlock As String
        strBlock = Me.lstBloecke.SelectedItem
        Dim strPath As String
        strPath = "C:\Programme\Crox Corporation\SystrayTB\Notices\" & strBlock
        Dim flb As Microsoft.VisualBasic.Compatibility.VB6.FileListBox
        flb = New Microsoft.VisualBasic.Compatibility.VB6.FileListBox()
        flb.Path = strPath
        Dim i As Byte
        Me.tab.TabPages.Clear()
        Dim TabPage(254) As System.Windows.Forms.TabPage
        Dim TextBox(254) As System.Windows.Forms.TextBox
        Dim F As Long
        F = FreeFile()
        Dim strTextBoxInhalt As String
        Do Until i = flb.Items.Count
            TextBox(i) = New System.Windows.Forms.TextBox()
            TextBox(i).Name = "txt" & flb.Items.Item(i)
            Microsoft.VisualBasic.FileOpen(F, strPath & "\" & flb.Items.Item( _
              i), OpenMode.Input)
            strTextBoxInhalt = Nothing
            Do Until EOF(F)
                strTextBoxInhalt = strTextBoxInhalt & _
                  Microsoft.VisualBasic.LineInput(F) & vbCrLf
            Loop
            Microsoft.VisualBasic.FileClose(F)
            TextBox(i).Text = strTextBoxInhalt
            TextBox(i).Multiline = True
            TextBox(i).Location = New System.Drawing.Point(5, 5)
            TextBox(i).Size = New System.Drawing.Size(Me.tab.Width - 15, _
              Me.tab.Height - 35)
            TextBox(i).ContextMenu = Me.ContextMenu1
            TabPage(i) = New System.Windows.Forms.TabPage()
            TabPage(i).Name = flb.Items.Item(i)
            TabPage(i).Text = flb.Items.Item(i)
            TabPage(i).Visible = True
            TabPage(i).Enabled = True
            TabPage(i).Controls.AddRange(New System.Windows.Forms.Control() _
              {TextBox(i)})
            Me.tab.TabPages.Add(TabPage(i))
            i = i + 1
        Loop
        Me.btnDelNotice.Enabled = True
        Me.btnRenNotice.Enabled = True
        Me.btnNewNotice.Enabled = True