VBScriptのClass内で、PrivateなConst定数を宣言したかったのですが、
以下のような書き方だとエラーになってしまう。
Class Book
' エラー
' Private Const Title = "..."
End Class
これの解決策は、Getterのみのプロパティを宣言すれば出来た。
Class Book
Private Property Get Title()
Title = "..."
End Property
End Class
Dim bk
Set bk = New Book
WScript.Echo bk.Title
' Setterがないのでエラー
' bk.Title = "..."
Set bk = Nothing