<％
クラスmyClassName
プライベートint_id 'カテゴリID
'クラスの初期化
private sub class_initialize（）
m_strerror = ""
End Sub
'クラスリリース
private sub class_terminate（）
m_strerror = ""
End Sub
'-----Read and write various attributes-----------------------------------------------------------------------------------------------------------------
公共財産はIDを取得します
id = int_id
プロパティを終了します
公有財産let id（intid）
int_id = intid
プロパティを終了します
パブリック関数メソッド（）
エンド関数
エンドクラス
％>