别让MsgBox中断了一些Background的处理作业

一旦调用MsgBox，你正在执行的一些后台处理作业，比如计数器或者时钟等。，就会停止，一切都不会恢复正常，直到你回复MsgBox！可能你不想这样，也可能会造成一些不必要的错误！
要解决这个问题，必须使用Windows API调用MessageBox函数。它的用法和外观和MsgBox一模一样，但是不会中断一些后台处理工作！

在下面的示例中，您希望在不更改任何属性的情况下向窗体添加一个标签、两个CommandButton和一个计时器。

在声明区域添加以下语句:

私有声明函数MessageBox Lib“user 32”别名“MessageBox a”(ByVal hwnd为Long，ByVal lpText为String，ByVal lpCaption为String，ByVal wType为Long)为Long

添加以下代码:

private command 1 _ click()
msgbox“计时器停止了！”，64，“VB的VB消息框”
End Sub

private command 2 _ click()
messagebox me . hwnd，"注意！计时器还在运行！”，“API的消息框”，64
End Sub

private form _ load()
me . timer interval = 1000
label 1 . caption = "当前时间是:" & Time
End Sub

private timer 1 _ timer()
label 1 . caption = "当前时间是:" & Time
End Sub