Public Class Book
    Enum enAblageort As Integer : Regal : Keller : Box : End Enum
    Dim strTitel As String
    Dim strAuthor As String
    Dim iJahr As Integer
    Dim iAuflage As Integer
    Dim iAnzSeiten As Integer
    Dim iAblageort As enAblageort
 
 
    Sub New(ByVal Buchtitel As String, Optional ByVal Author As String = _
      "undefined", Optional ByVal Jahr As Integer = 9999 _
 , Optional ByVal Auflage As Integer = 0, Optional ByVal AnzSeiten As Integer = _
 0 _
 , Optional ByVal Ablageort As enAblageort = enAblageort.Regal)
 
        strTitel = Buchtitel
        strAuthor = Author
        iJahr = Jahr
        iAuflage = Auflage
        iAnzSeiten = AnzSeiten
        iAblageort = Ablageort
    End Sub
 
    Function GetBookTitle()
        GetBookTitle = strTitel
        Return (GetBookTitle)
    End Function
 
    Function GetBookAuthor()
        GetBookAuthor = strAuthor
        Return (GetBookAuthor)
    End Function
 
 
End Class

 Private Sub btnEingabe_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles btnEingabe.Click
        Dim Feld() As Book = New Book() {}
 
    End Sub