スキルアップ・問題解決なら、モーグにおまかせ！

●概要●
IWshRuntimeLibrary.WshShellオブジェクトのPopupメソッドを使って、メッセージダイアログボックスを表示できます。Popupメソッドの引数SecondsToWaitを利用すると、指定した時間が経過した時点で、メッセージを閉じることができます。

構文 オブジェクト.Popup(Text, [SecondsToWait], [Title], [Type])
設定項目　　　　内容
オブジェクト　　WshShellオブジェクト
Text　　　　　　表示するメッセージ
SecondsToWait　 メッセージを閉じるまでの時間
Title　　　　　 ポップアップウィンドウのタイトルに表示する文字列
Type　　　　　　メッセージ ボックスに表示するボタンとアイコンの種類

次のサンプルは、［OK］ボタンと［キャンセル］ボタンがあり、情報アイコンのあるメッセージボックスを表示します。ボタンがクリックされなければ、3秒後に自動的に閉じます。なお、このサンプルを実行するには、「Windows Script Host Object Library」への参照設定が必要です。

Sub Sample()
    Dim WshObject As IWshRuntimeLibrary.WshShell
    
    Set WshObject = New IWshRuntimeLibrary.WshShell
    WshObject.Popup "3秒後に閉じます", 3, "自動的に閉じるメッセージ" _
                    , vbOKCancel + vbInformation
    Set WshObject = Nothing
End Sub