VB初心者友の会 - Q&A掲示板過去ログ

morikenといいます。
しばらくVBを触っていなかったのですが、最近少しVBでプログラムすることになりまして、
問題が発生したので質問させていただきたいと思います。

VBは5.0を使用しています。

質問の内容ですが、タイトルにもありますが、フォーム間のユーザー定義構造体の受け渡しについてです。

1. 2つのフォームモジュール、Form1およびForm2があります。
   ユーザー定義構造体（Type TYPE_LONG）をひとつの標準モジュールの中で public として定義しています。

----- Module1 -----
Public Type TYPE_LONG
    lValue1 As Long
    lValue2 As Long
    lValue3 As Long
End Type
----- Module1 -----

2. Form1において、グローバル域に private で上記の構造体を宣言しています。

----- Form1 -----
Private myType As TYPE_LONG
----- Form1 -----

3. Form1に存在するコマンドボタンをクリックしたとき、Form2をロードして、Form2の public 関数に
   この構造体の内容を引きたわしたいのですが、ここで問題が発生します。

----- Form1 -----
Private Sub cmdShow_Click()
    Load Form2
    myType = Form2.Init(myType)
End Sub
----- Form1 -----

   Form2のInit関数の定義は次のようになっています。

----- Form2 -----
Public Function Init(myType As TYPE_LONG) As TYPE_LONG
    Init = myType
End Function
----- Form2 -----

   実行しようとすると、上記Form2のInit定義部分が反転表示され、
   「ユーザー定義型や固定長の文字列型は、オブジェクトモジュールのパブリックメンバのデータ型として宣言することはできません。
     プライベートモジュールはパブリックオブジェクトモジュールのパブリックメンバとして宣言することはできません。」
   というエラーメッセージが表示されます。
   Init を private で宣言すればコンパイルは通るのですが、当たり前ですがForm1からInit関数が呼び出せません。
   
   このような使用方法は、VBでは使用できないのでしょうか。
   上記の myType 自体を public として宣言することでどのフォームモジュールからも使用できるようには出来ますが、
   そのようにグローバルな変数として使用したくはありません。
   
   あくまで引数の引き渡しで行いたいのですが、このような場合はどうすればよいのでしょうか？
   
   説明がわかりにくいかも知れませんが、なにとぞよろしくお願いいたします。