VB中 DoEvents 有什么用处???
一些游戏里面有这一语句,但是不知道是干什么的
运行中断时就停在这里.
各位大侠们帮帮我!

交出控制权,可以模拟多线程.

DoEvents 函数
转让控制权，以便让操作系统处理其它的事件。

语法

DoEvents( )

说明

DoEvents 函数会返回一个 Integer，以代表 Visual Basic 独立版本中打开的窗体数目，例如，Visual Basic，专业版，在其它的应用程序中，DoEvents 返回 0。

DoEvents 会将控制权传给操作系统。当操作系统处理完队列中的事件，并且在 SendKeys 队列中的所有键也都已送出之后，返回控制权。

DoEvents 对于简化诸如允许用户取消一个已启动的过程 — 例如搜寻一个文件 — 特别有用。对于长时间过程，放弃控制权最好使用定时器或通过委派任务给 ActiveX EXE 部件来完成。以后，任务还是完全独立于应用程序，多任务及时间片由操作系统来处理。

小心 确保以 DoEvents 放弃控制权的过程，在第一次 DoEvents 返回之前，不能再次被其他部分的代码调用；否则会产生不可预料的结果。此外，如果其它的应用程序可能会和本过程以不可预知的方式进行交互操作，那么也不要使用 DoEvents，因为此时不能放弃控制权。
From MSDN

打个比方：

你要打开一个很大的文件，这时会很慢，像死机一样不动了，这时就可以用 DoEvents 语句，这样就不会显示

出死机现象了，可以接着使用别的程序，不然你只能等打开的文件全不读完内容才能接着使用别的程序。

大概是不是这样:

………………
会导致死机的语句
………………
DoEvents

Private Sub Command1_Click()
For i = 0 To 10000
Text1 = i
DoEvents
Next
End Sub
如果用了DoEvents那么Text1文本框里值可以看见变化，没用的话只能显示10000了。不过完成的速度比不用DoEvents要慢

多线程模拟，VB6.0中本来不支持多线程的。