親フォームのピクチャーボックス内にコマンドボタンが数個あり、ボタンを押下したら
子フォーム上でボタンに対応した処理が走るようにしたいのですが、親フォームで押下されたボタンを子フォームで認識するにはどのようにしたらよいのでしょうか？
子フォームは数種類あり、それぞれ処理が違います。
わかりずらい説明で申し訳ございませんが、よろしくお願いします。
環境はWindowsXｐ+VB6.0です。

> 親フォームのピクチャーボックス内にコマンドボタンが数個あり、ボタンを押下したら
> 子フォーム上でボタンに対応した処理が走るようにしたいのですが、親フォームで押下されたボタンを子フォームで認識するにはどのようにしたらよいのでしょうか？
> 子フォームは数種類あり、それぞれ処理が違います。
> わかりずらい説明で申し訳ございませんが、よろしくお願いします。
> 環境はWindowsXｐ+VB6.0です。

MDIでしょうか？MDIの作りは
子フォームが親フォームのイベントを認識するのではないですよ。
親フォームのイベントに対して子フォームを操作するイメージです。

ボタンが３個あり、それぞれに対応した子フォームが３つあれば
Select Case Index
    Case 1
        Call Form1.メソッド
    Case 2
        Call Form2.メソッド
    Case 3
        Call Form3.メソッド
End Select
とすればよいのではと思います。

> MDIでしょうか？MDIの作りは
> 子フォームが親フォームのイベントを認識するのではないですよ。
> 親フォームのイベントに対して子フォームを操作するイメージです。
ということは、子フォームからは親フォームのボタンを押下したというイベントを
認識することはできないのでしょうか？

> > 親フォームのピクチャーボックス内にコマンドボタンが数個あり、ボタンを押下したら
> > 子フォーム上でボタンに対応した処理が走るようにしたいのですが、親フォームで押下されたボタンを子フォームで認識するにはどのようにしたらよいのでしょうか？
> > 子フォームは数種類あり、それぞれ処理が違います。
>

こういうことですかねー？

'子フォーム--------------------------------
Option Explicit

Private WithEvents cmdParent As CommandButton

Private Sub Form_Load()
    Set cmdParent = MDIForm1.Command1
End Sub

Private Sub cmdParent_Click()
    Call MsgBox("親フォームのコマンドボタンが押されました。")
End Sub


ちなみに親フォームのCommand1にクリックイベントが記述されてた場合、
親フォームのイベントが先に走って、その後cmdParentのクリックイベントが起こります。

> '子フォーム--------------------------------
> Option Explicit
>
> Private WithEvents cmdParent As CommandButton
>
> Private Sub Form_Load()
>     Set cmdParent = MDIForm1.Command1
> End Sub
>
> Private Sub cmdParent_Click()
>     Call MsgBox("親フォームのコマンドボタンが押されました。")
> End Sub

nanashi様、有難う御座います。まさにこういうことがしたかったのです。
わがままついでにもう１つお聞きしたいのですが、
コマンドボタンが配列であった場合はどのようにすればよろしいのでしょうか？