比如说，我们在表单上设置了一个计时器控件，这个定时器的任务就是在表单上显示当前的时间，同时设置当程序运行时启动定时器。程序运行后，当前的时间将在表单上实时地显示出来。但如果我们同时设置一个command按钮，并设计它的click事件为调用msgbox显示一个随意的信息。当我们点击这个按钮后，就会出现一个对话框，这时，请留心看看原本显示当前事件的那个位置，你发现了什么？呵呵，时间不再更新显示了 ;-( 当再次点击对话框的按钮，使之消失时，时间又恢复正常，继续实时显示了。
问题已经描述清楚了。我们将要解决的就是，当出现对话框时，让时间仍能正确地实时显示，也就是说，让程序在后台继续运行。
使用API函数MessageBox
使用VB自带的函数MSGBOX是完成不了我们期望的后台程序运行了，在上面我们已经谈到。为了解决这个问题，这里提供一个简单并且很好用的技巧：使用Windows API函数MessageBox。它产生的效果及外观与使用MSGBOX基本一样，但却不会中止后台程序的继续运行。
 引用MessageBox
为了使用这个函数，必须首先在代码的最前端设置引用信息，请输入以下的代码：
Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long
新建From1（窗体），新建Command1到2（按钮CommandButton），List1（ListBox），Timer1（Timer），代码：

定时器控件控制显示当前时间，一个命令按钮调用MSGBOX对话框，另一个命令按钮调用MessageBox函数，Label存放当前时间。你可以通过点击不同的命令按钮，查看label中显示的时间是否有停止的现象。

Private Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long

Private Sub Command1_Click()
    MsgBox "请看看时间显示是否停止了！"
End Sub

Private Sub Command2_Click()
    MessageBox Me.hwnd, "请注意，时间显示没有停止!", "API Call", vbOKOnly + vbExclamation
End Sub

Private Sub Timer1_Timer()
    Label1.Caption = Time
End Sub

更多的设想

上面的代码是否很简单？ 的确这样，使用API函数，有时能启动意想不到但却是很实用的效果。当然，你也可以编写自己的对话框函数，这也不是很复杂，而且能更加细微地控制用户的输入。