'宣言 Public Function New()
'使用法 Dim instance As New ActiveState()
public ActiveState()
ActiveState クラス ActiveState メンバ