List 5-15　コンストラクタ文字列の例

  1： Implements IObjectConstruct
  2： Private ConstructString As String
  3： 
  4： Private Sub IObjectConstruct_Construct(ByVal pCtorObj As Object)
  5：     'コンストラクタ文字列を取得し，変数ConstructStringに格納
  6：     ConstructString = pCtorObj.ConstructString()
  7： End Sub
  8： 
  9： Public Property Get ConstStr() As String
 10：     'コンストラクタ文字列を返すプロパティ
 11：     ConstStr = ConstructString
 12： End Property