VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板 - Visual Basic 6.0 VB2005 VB2010

　　　　　サンプル投稿用掲示板　　 VB2005 ～用トップページ　　 VB6.0 用トップページ

*秒後に自動的に閉じるメッセージボックス(VB6.0) ( No.0 ) 　[親スレッドへ]

日時： 2009/12/27 11:20
名前： 花ちゃん: ***********************************************************************************
* カテゴリー：[メッセージ][ダイアログ][]                                          *
* キーワード：自動応答,自動クリック,自動的にクリック,ボタンをクリック,,           *
***********************************************************************************

元質問：Form上でMsgBoxを出した時の画面のチラツキ - ダンディ本脇  2005/04/06-19:42 No.2770

----------------------------------------------------------------------------------
Re^3: Form上でMsgBoxを出した時の画面のチ.. - 花ちゃん 2005/04/06-22:54 No.2773
----------------------------------------------------------------------------------
なるほど、閉じた後にちらつくのですね

下記ではどうでしょう
Private Sub Command1_Click()
    Dim Ret As Integer
    Ret = CreateObject("WScript.Shell").Popup _
        ("このメッセージボックスは３秒後自動的に閉じます。", 3, _
        "自動的に閉じる", vbYesNo)
　　Debug.Print Ret
End Sub

閉じます。", , _　のように秒数を指定いなければVBのMsgBox と同様に使えます。