Private Sub btnNewBook_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles btnNewBook.Click
 
        If Buch_Anlegen.ShowDialog = Windows.Forms.DialogResult.OK Then
            txtDebug1.Text = "Ok"
            Dim NeuesBuch As New Book(Buch_Anlegen.txtTitel.Text, _
              Buch_Anlegen.CboAuthor.Text, Buch_Anlegen.CboGenre.Text _
                                      , Buch_Anlegen.NumJahr.Value, _
                                      Buch_Anlegen.NumAuflage.Text, _
                                      Buch_Anlegen.NumSeiten.Value, _
                                      Buch_Anlegen.CboAblage.SelectedItem)
 
            'Regal.Add(NeuesBuch)
            'lstDebug2.Items.Add(Regal(Regal.Count - 1).BookTitle)
 
            Regal_1.SafeBookToRack = NeuesBuch
 
 
 
 
        Else
            txtDebug1.Text = "NOT Ok"
        End If
    End Sub
 
 
    Private Sub btnDebug2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnDebug2.Click
        Dim TempBook As Book
        Dim BuchTxtBoxen As IList(Of TextBox) = New List(Of TextBox)
 
        For i = 1 To Regal_1.MaxIndex
            TempBook = Regal_1.LoadBook(i)
            Dim txtBuch As New TextBox
            txtBuch.Text = TempBook.BookTitle
            txtBuch.Parent = panBuecher
            txtBuch.Location = New Point(20 + 110 * (i - 1), 20)
            txtBuch.ReadOnly = True
            BuchTxtBoxen.Add(txtBuch)
            lstDebug2.Items.Add(TempBook.BookTitle)
 
        Next
 
    End Sub