Imports System
Namespace December_19th__b_
Class BigPhotoAlbum
Inherits PhotoAlbum
Public Sub New()
numberOfPages = 64
End Sub
End Class
End Namespace
Namespace December_19th__b_
Class AlbumTest
Private Shared Sub Main()
Dim debug As Boolean = False
Dim myAlbum1 As PhotoAlbum = New PhotoAlbum()
Console.WriteLine(myAlbum1.GetNumberOfPages())
Dim myAlbum2 As PhotoAlbum = New PhotoAlbum(24)
Console.WriteLine(myAlbum2.GetNumberOfPages())
Dim myBigPhotoAlbum1 As BigPhotoAlbum = New BigPhotoAlbum()
Console.WriteLine(myBigPhotoAlbum1.GetNumberOfPages())
If debug Then Console.ReadLine()
End Sub
End Class
End Namespace