ひとつのプログラムにいくつもフォームがあって、今どのフォームを開いているかわかるようなプログ
ラムはありますか？教えてください。

Debug.Print Screen.ActiveForm.Name ではどうですか？
又は、逆引きヘルプの表示しているフォームを一度に閉じるやその他が参考になるかと。



★ - レコードの表示 - burberry 01/30-11:02 No.7746  の件はどうされたのでしょうか？
解決されたなら、解決報告なり、お礼なりしておきましょう。

もし複数フォームを開いている場合にはどうしたらいいですか？

（逆引きヘルプの表示しているフォームを一度に閉じるというのが探し出せません）


解決報告忘れていました。すみません。

> （逆引きヘルプの表示しているフォームを一度に閉じるというのが探し出せません）

下記は同じ No.029 のサンプルです。調べた場合見つかり易いように色々表現を変えて
紹介しております。
当サイト内外の検索等を利用すれば簡単にヒットしますし、逆引きヘルプ一覧表のサンプル内容
をよく調べて頂ければ他にもヒントになるサンプルがあるかと思います。

因みにGoogleで[表示しているフォームを一度に閉じる]をキーワードで検索してもでてきますよ。



一度に開いているフォームをすべて閉じる
終了処理の記述の仕方　
すべてのフォームを開放する（ゆう（U)さん投稿分）　
開いているフォームを一度にすべて閉じる　
表示しているフォームを一度に閉じる（３サンプル）

　　http://www.bcap.co.jp/hanafusa/VBHLP/Fil_AllEnd.htm

見つかりました。有難うございます。
質問がいろいろ変わって申し訳ないのですが、たとえばFORM１〜Form４まであって、今、Form1〜3のど
れかが開いてるとして、Form4を開いたときに「今はFORM１が開かれている」とか「今はFORM２が開かれ
ている」とわかるようにできますか？

先ほどのサンプルをご覧になられたのですか？
見て理解できない部分はヘルプで調べるなりしないと身に付きませんよ。
それでは、質問ではなく、サンプルを作って下さいになりますよね。
ご覧になって試されたのなら当然質問内容も違ってくるかと思います。

Option Explicit
Private Sub Form_Load()
    Form2.Show
    Form3.Show
    Form4.Show
    Form5.Show
End Sub
Private Sub Command1_Click()
    Dim myObject As Object
    For Each myObject In Forms
       Debug.Print myObject.Name
    Next
End Sub

参考になりました。有難うございます。