Question

VB弹对话框会停止定时器，要怎么才能不停止？

例如
Private Sub Form_Load()
msgbox "123"
end sub

Private Sub Timer1_Timer()
unload me
End Sub

上面时钟是10秒，但如果那个弹的框不用鼠标点关闭的话，10秒后也不会关掉程序，有没有办法在不点掉弹的对话框，也可以关掉程序？

Answer 1

用API
声明如下：
Public Declare Function MessageBoxEx Lib "user32" Alias "MessageBoxExA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal uType As Long, ByVal wLanguageId As Long) As Long