Private Declare Function MessageBoxTimeout Lib "user32.dll" Alias "MessageBoxTimeoutA" ( _ByVal hwnd As Long, _ByVal lpText As String, _ByVal lpCaption As String, _ByVal uType As Long, _ByVal wlange As Long, _ByVal dwTimeout As Long) As LongPrivate Sub Form_Click() "窗體單擊事件MessageBoxTimeout ByVal 0&, "5秒種後我會自動關閉的哦~~~~~", "自動關閉資訊框演示:", ByVal 0&, ByVal 0&, 5000"新增要顯示的窗體的程式碼,比如Form3.showForm3.ShowUnload Form2End Sub
比如窗體2單擊的時候讓他彈出一個msgbox的框，可以這樣
Private Declare Function MessageBoxTimeout Lib "user32.dll" Alias "MessageBoxTimeoutA" ( _ByVal hwnd As Long, _ByVal lpText As String, _ByVal lpCaption As String, _ByVal uType As Long, _ByVal wlange As Long, _ByVal dwTimeout As Long) As LongPrivate Sub Form_Click() "窗體單擊事件MessageBoxTimeout ByVal 0&, "5秒種後我會自動關閉的哦~~~~~", "自動關閉資訊框演示:", ByVal 0&, ByVal 0&, 5000"新增要顯示的窗體的程式碼,比如Form3.showForm3.ShowUnload Form2End Sub