就是在我的程序设计的是1800次的循环中有描点 pset，之后再延时1s,但这样程序的图线并不是连续的画出，而且老死住
Private Sub Command1_Click()
Dim i As Long
For i = 0 To 1800
Call Sleep(10000)
picvalue.PSet (i, 100)
Next i
End Sub

谁可以指教一下，不胜感激

关键是在一个循环中总要调用一秒的延时怎么办？？