比如窗体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 Long
Private Sub Form_Click() '窗体单击事件
MessageBoxTimeout ByVal 0&, "5秒种后我会自动关闭的哦~~~~~", "自动关闭码渣缓信迟模息框演示:", ByVal 0&, ByVal 0&, 5000
'添加要显示的窗体的代码,比如Form3.show
Form3.Show
Unload Form2
End Sub
风格擐甲挥戈