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

不要sleep的话，无法控制速度
怎么用application.doevents？

---

奇怪的

---

    Else
    Picture1.Line -(pen(temp1).PenPointx, pen(temp1).PenPo