VB 用sleep时，出现程序无响应
水流线画图如下：
Picture1.CurrentX = pen(1).PenPointx Picture1.CurrentY = pen(1).PenPointy
For temp1 = 1 To pointcount - 1
If (pen(temp1).PenPointx = -1 And pen(temp1).PenPointy = -1) Then
Picture1.CurrentX = pen(temp1 + 1).PenPointx
Picture1.CurrentY = pen(temp1 + 1).PenPointy
Else
Picture1.Line -(pen(temp1).PenPointx, pen(temp1).PenPointy )
Sleep (pen(temp1 + 1).time - pen(temp1).time)
End If
Next temp1
pen的定义如下：
Private Type paintpen
PenPointx As Integer 'X轴坐标
PenPointy As Integer 'Y轴坐标
time As Long ‘时间点
End Type
（-1，-1，0）是开始下一笔
怎么我一到下一划的时候就出错了，程序就不动了
大家帮我看看，哪里出问题了
不要sleep那句或改成application.doevents
不要sleep的话，无法控制速度
怎么用application.doevents？
奇怪的
Else
Picture1.Line -(pen(temp1).PenPointx, pen(temp1).PenPo
相关问答：
我有厂家做的ASP的监控录像（DVR）的局域网播放的源程序与控件，想要用ASP.net做一个视频回放的程序（利用他的控件）但不知如下去做，望各位指点。
先搞清楚他们的控件是怎么用的,
然后就直接用好了.
不过,如 ......
比如进程加载新的程序。
在其运行之前阻止。
然后允许后放行。
比如程序主文件路径是c:\test\test.exe，建立内容任意的文件c:\test\test.exe.manifest。
就是不知道程序文件路径。
设� ......
在vb这编程里似乎有很多的东西是相联系的，为什么有些人对vb的编程摸不到头脑啊！并且有些事很容易的，但是却把它们的代码变成复杂，也去想一些不能实现的东西啊！
没分了，楼主多来点分！
来接点分
......
据说java语言是这样的，那VB呢？
byte[] b(byte)0x62,(byte)0x11,(byte)0x72,(byte)0x31};
try {
System.out.println(new String(b,"UTF-16"));
} catch (UnsupportedEnco ......
在下是vb的新手，想写段程序，在vb中，使用wscript调用一些外部的命令，但是程序执行一直有错误，请各位高手帮忙解答下，谢谢。
代码如下：
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
