フォームの二重起動の阻止

・フォーム１
・フォーム２
があります
この２つのフォームにはお互いを表示させる為のボタンがあるのですが、１つのフォームの二重起動を阻止したいのですが、どのようにコーディングすればよろしいでしょうか？ご教授お願いします。

補足
フォーム１→フォーム２→フォーム１
このような形がとれてしまうとフォーム１が２つ表示されてしまうので、表示させないようにしたいです。

No.2 回答者： 1050YEN 回答日時： 2005/07/14 17:54

これって、もしや.NET?

No.1 回答者： TAK_999 回答日時： 2005/07/14 08:56

これから表示させようとしているフォームが既にロードされているかどうか

をチェックすればいいわけですよね

sFormName = "これから表示させようとするフォームの名前"
For i = 0 To Forms.Count - 1
If Forms(i).Name = sFormName Then
'既にロードされています
Exit For
End If
Next i