国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

Private Sub Command1_Click()
CreateObject("Wscript.Shell").Popup "本窗口將在三秒鐘后自動(dòng)關(guān)閉……", 3, "MsgBox", 64
End Sub

………………

第二種方法

msgbox有點(diǎn)難度，建議用這個(gè)函數(shù)：Private Declare Function MessageBoxTimeout Lib "user32" Alias "MessageBoxTimeoutA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long, ByVal wlange As Long, ByVal dwTimeout As Long) As Long 舉個(gè)例子：Private Sub Command1_Click()
MessageBoxTimeout Me.hwnd, "test", "Tips", vbInformation, 0, 3000
End Sub