ActiveX コントロールにユーザー定義型プロパティを追加したい。 (ID:102836)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 現在、VB6.0でActiveX コントロールの作成を行っております。 作成したUserControlに、同じプロジェクト内で作成したクラスClass1の型を持ったプロパティを追加し、 ReadProperties及びWritePropertiesメソッドによる値の読出し、書込みさらにはプロパティページと の連携を実現したいのですが、ReadPropertiesメソッドで「実行時エラー '713'」が発生し、 上手く動作しません。誰かアドバイス頂けないでしょうか。 ---------------- 以下、ソースコード ---------------- Option Explicit '同プロジェクト内に Class1 が存在するとします。 Private m_P1 As Class1 Public Property Get P1 As Class1 Set P1 = m_P1 End Property Public Property Set P1(ByVal objNewValue As Class1) Set m_P1 = objNewValue PropertyChanged "P1" End Property Private Sub UserControl_ReadProperties(PropBag As PropertyBag) 'ここで実行時エラー '713'が発生！！ Set m_P1 = PropBag.ReadProperty("P1", New Class1) End Sub Private Sub UserControl_WriteProperties(PropBag As PropertyBag) Call PropBag.WriteProperty("P1", m_P1, New Class1) End Sub ---------------- 以上、ソースコード ---------------- エラーのメッセージは、 「次のクラスは登録されていません。次のCLSIDオブジェクトを参照してください。 :{33238196-F3BE-42F7-A8A6-FDE657646E7D}」 とダイアログが表示されます。 尚、Class1のプロパティは、下記の通りです。 DataBindingBehavior = 0 - vbNone DataSourceBehavior = 0 - vbNone Instancing = 5 - MultiUse Persistable = 1 - Persistable 宜しく御願い致します。