AppDecoratorClass.txt
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