ActiveDialogName 属性

ActiveDialogName 属性返回活动对话框的名称。

要在打开新对话框时打开显示对话框名称的消息框，使用以下代码：

Sub DialogBox(DialogBoxName, IsOpen)
        On Error Resume Next
        msgbox "You have just opened the " & ActiveDialogName & _
	 " dialog box."
        On Error GoTo 0
End Sub