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

質問

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

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

回答No.2

1050 円（@1050YEN）

これって、もしや.NET?

回答No.1

TAK_999

これから表示させようとしているフォームが既にロードされているかどうか
をチェックすればいいわけですよね

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