Sub メッセージボックスを自動的に消える形式で表示_非推奨() Set PC機能 = CreateObject("WScript.Shell") PC機能.Popup "表示内容(2秒で自動的に消えます)", 2 End Sub