strBlock = Me.lstBloecke.SelectedItem
        Dim strPath As String
        strPath = "C:\Programme\Crox Corporation\SystrayTB\Notices\" & strBlock _
          & "\" & strNotice
        Dim F As Long
        F = FreeFile()
        Microsoft.VisualBasic.FileOpen(F, strPath, OpenMode.Output, _
          OpenAccess.Write)
        Microsoft.VisualBasic.Print(F, "Geben Sie hier Ihre Notiz ein.")
        Microsoft.VisualBasic.FileClose(F)
        TabPage.Name = "TabPage" & (Me.tab.TabPages.Count + 1)
        TabPage.Text = strNotice
        TabPage.Visible = True
        TabPage.Enabled = True
        TabPage.Controls.AddRange(New System.Windows.Forms.TextBox() {TextBox})
        TextBox.ContextMenu = Me.ContextMenu1
        TextBox.Visible = True
        TextBox.Enabled = True
        TextBox.Multiline = True
        TextBox.Location = New System.Drawing.Point(5, 5)
        TextBox.Size = New System.Drawing.Size(Me.tab.Width - 15, Me.tab.Height _
          - 35)
        TextBox.Text = "Hier Ihre Notiz einfügen."
        Me.tab.TabPages.Add(TabPage)
    End Sub
    Private Sub cmuSpeichern_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmuSpeichern.Click
        'Dim strBlock As String
        'Dim strNotice As String
        'Dim strPath As String
        'Dim F As Long
        'Dim strNoticeLine As String
        'F = FreeFile()
        'strBlock = Me.lstBloecke.SelectedItem
        'strNotice = Me.tab.SelectedTab.Text
        'strPath = "C:\Programme\Crox Corporation\SystraTB\Notices\" & strBlock 
        ' & "\" & strNotice
        'Microsoft.VisualBasic.FileOpen(F, strPath, OpenMode.Binary)
        'microsoft.VisualBasic.FilePut(f,
    End Sub
End Class