Me.btnNewNotice.Location = New System.Drawing.Point(192, 240)
        Me.btnNewNotice.Name = "btnNewNotice"
        Me.btnNewNotice.Size = New System.Drawing.Size(124, 23)
        Me.btnNewNotice.TabIndex = 5
        Me.btnNewNotice.Text = "Neue Notiz"
        '
        'btnRenNotice
        '
        Me.btnRenNotice.Location = New System.Drawing.Point(444, 240)
        Me.btnRenNotice.Name = "btnRenNotice"
        Me.btnRenNotice.Size = New System.Drawing.Size(124, 23)
        Me.btnRenNotice.TabIndex = 6
        Me.btnRenNotice.Text = "Umbenennen"
        '
        'ContextMenu1
        '
        Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() _
          {Me.cmuSpeichern, Me.cmuLaden})
        '
        'cmuSpeichern
        '
        Me.cmuSpeichern.Index = 0
        Me.cmuSpeichern.Text = "Notiz speichern"
        '
        'cmuLaden
        '
        Me.cmuLaden.Index = 1
        Me.cmuLaden.Text = "Notiz laden"
        '
        'frmNotices
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(572, 270)
        Me.Controls.AddRange(New System.Windows.Forms.Control() _
          {Me.btnNewNotice, Me.btnDelNotice, Me.btnRenNotice, Me.tab, _
          Me.grpBloecke})
        Me.Name = "frmNotices"
        Me.Text = "Notizen"
        Me.grpBloecke.ResumeLayout(False)
        Me.ResumeLayout(False)
 
    End Sub
 
#End Region
    Private Sub frmNotices_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        'Dim strPath As String
        'strPath = "C:\Programme\Crox Corporation\SystrayTB\Notices\bloecke.dat"
        'Dim F As Long
        'F = FreeFile()
        'Dim aryBloecke(254) As String
        'Dim i As Byte
        'Dim bteBlock As Byte
        'Microsoft.VisualBasic.FileOpen(F, strPath, OpenMode.Input)
        'Do Until EOF(F)
        'aryBloecke(i) = Microsoft.VisualBasic.LineInput(F)
        'i = i + 1
        'Loop
        'Microsoft.VisualBasic.FileClose(F)
        'Do While Not i = bteBlock
        'Me.lstBloecke.Items.Add(aryBloecke(bteBlock))
        'bteBlock = bteBlock + 1
        'Loop