クラス.プロパティ に ユーザ定義型を引き渡す方法 (ID:85547)

名前

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

本文 まさお と申します。 宜しくお願いします。 クラスモジュールのプロパティにユーザ定義型変数の受け渡し方法を教えて下さい。 *****クラスモジュール***** Private mvara As UserType Public Property Set a(ByVal vData As UserType) '<=コンパイルエラー Set mvara = vData End Property Public Property Get a() As UserType Set a = mvara End Property *****標準モジュール***** Public Type UserType i As Integer s As String End Type 上記のようにすると 「コンパイルエラー パブリックオブジェクトモジュールで定義されたパブリックユーザ定義 型に限り、クラスモジュール内のパブリックプロシージャの引数または 戻り値、またはパブリックユーザ定義型の要素として使用することがで きます。」 となります。 標準モジュールでは Option Private は設定していません。 どのようにすれば、クラスモジュール内のパブリックプロシージャの引数、または、戻り値にユーザ定義型を使用することができるのか、アドバイスをお願い致します。