クラスのイベントが拾えないのですが (ID:87810)

名前

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

本文 環境はWin2000,VB6です 現在クラスを勉強中です。 クラスをデータサーバとして使い,各フォームのデータの更新を通知できるように ならないかと考えましたがForm側でイベントが拾えません。 Form1のボタンイベントでForm2側でText1.Text="ああああ"としたいのですが 以下のソースを参照ください。 （クラスを経由する必要がないのは理解しています。たくさんフォームがあって 全てのフォームがアンロードする可能性があるとした場合に有効かと思ったのですが・・） Module1.bas---------------------- Global clsa As Class1 Sub main() Set clsa = New Class1 Form1.Show Form2.Show End Sub --------------------------------- class1.cls----------------------- Dim strd As String Public Event c(ByVal strf As String) Public Sub b(ByVal strc As String) RaiseEvent c(strc) End Sub ---------------------------------- Form1------------------------------ Private Sub Command1_Click() clsa.b ("ああああ") End Sub ----------------------------------- Form2------------------------------ Private WithEvents clsa As Class1 Private Sub clsa_c(ByVal strf As String) Text1.Text = strf End Sub ----------------------------------- Form1のCommand1ボタンをクリックしてもForm2のclsa_c のイベントが発生しません。 クラスの利点ばかりに目がいって、制限事項が分かって いないようです。どなたかご指摘いただけないでしょうか？