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

名前

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

本文 よく見たら、動きそうですけどね。 下記サンプルはテスト済みなのでこれと何がちがうか 考えてみてください。 同じ用に思いますが。 '----- Class1.cls 'RaiseEvent C[(arg1, arg2, ... , argn)] Public Event C(ByVal D As String) Public Sub B(ByVal D As String) RaiseEvent C(D) End Sub '----- Module1.bas Sub Main() Set clsa = New Class1 Form1.Show Form2.Show End Sub '----- Form1.frm Private Sub Command1_Click() Module1.clsa.B "AAA" End Sub '----- Form2.frm Private WithEvents clsb As Class1 Private Sub clsb_C(ByVal D As String) MsgBox D End Sub Private Sub Form_Load() Set clsb = clsa End Sub