Attribute VB_Name = "AppDecoratorClass"
Option Explicit

Public ActiveInstance As AppDecorator

Sub Initialize()
    Set ActiveInstance = New AppDecorator
    ActiveInstance.Initialize
End Sub

Sub Finalize()
    Set ActiveInstance = Nothing
End Sub

Sub NewBook()
    ActiveInstance.NewBook
End Sub

Sub ShowBookDecoratorCount()
    ActiveInstance.ShowBookDecoratorCount
End Sub