2つのメッセージボックスを表示している間、コードを待機させる方法

質問

2つのメッセージボックスを表示している間、コードを待機させる方法

　今晩は，いつも勉強させていただいております。
質問させていただきます。どうぞよろしくお願いいたします。

　開発環境はXP+VB2008になります。

　Form_MsgBox1とForm_MsgBox2上での操作が完了するまで
Form1のコードを中断したいのですが、そのような事って
可能なのでございましょうか。。。？？
　そもそも中断させる方法が分からなかったのですが、
先の質問でご親切にShowDialogをお教えいただけましたので

【Form1】
　Private Sub Button_Click
　　　：
　　Dim f As New Form_MsgBox1
　　If f.ShowDialog(Me) = DialogResult.OK Then
　　Else
　　　Exit Sub
　　End If
　　　：
　End Sub

【Form_MsgBox1】
　Private Sub Form_MsgBox1_Load
　　　：
　Dim f As New Form_MsgBox2
　f.Show()
　　　：
　End Sub

といたしましたところ、Form_MsgBox2の操作が
できなくなってしまいました。。
（それ以外は全部大丈夫でございます）
Form_MsgBox1とForm_MsgBox2を交互に操作している間、
Form1だけ待機させて操作できなければよいのですが。。
　検索いたしておりますと、複数のShowDialogが可能か
どうかといったQ&Aがいくつか見つかるのですが、
いまいちよく分かりませんでしたorz

　何かよさそうな方法がひらめかれるようでございましたら、
是非ともアドバイスいただきたくお願い申し上げます。
　もしお詳しい方がいらっしゃいましたら，どうぞよろしく
お願いいたします。

回答No.1

samtomsan · ベストアンサー

下記で出来るかな。

パブリックのbool変数(例えば MsgBoxClose)を設けて、MsgBox1をShowする前に False にしておく。
MsgBox1をshowした後でDoかWhileを使ってMsgBoxCloseがTrueになるまで無限ループで待つ。
MsgBox1をClose(Hidenかな)する時にMsgBoxCloseをTrueにする。
必要であればMsgBox2でも同様な事を行うためにパブリックのbool変数を二つにして、その二つがTrueになるまで無限ループで待つ。

(無限ループの中ではDoEventsを実行していないとTrueが捕まえられないような気がする)

お礼

ありがとうございます！
　　　Do Until MsgBox1.Tag = 1
　　　　System.Windows.Forms.Application.DoEvents()
　　　　System.Threading.Thread.Sleep(20)
　　　Loop
といたしまして、何とかうまくいきました。
まだ微調整の必要がありますが。。。＾＾；

　この度はご閲覧・アドバイスいただきまして助かりました。
どうもありがとうございました！！！