就是在我的程序设计的是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

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

谁只道啊？

你Sleep(10000)是10秒，不是一秒

或者可以用DoEvents来处理，请看代码：

Option Explicit

Private Sub Form_Load()
Debug.Print "等待3秒..."
Delay 3
Debug.Print "OK"
End Sub

Private Sub Delay(intTime As Integer)
Dim dtStartTime As Date
dtStartTime = Now

Do While DateDiff("s", dtStartTime, Now) < intTime
DoEvents
Loop
End Sub

[此贴子已经被作者于2006-2-18 11:08:57编辑过]

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

为什么要停1秒？

不如用timer 循环好了,再加上累加器,完美无缺啊

有个内置函数叫:Timer。Print Timer，会显示一个两位小数的值，它表示从当天00:00开始到当前时间所经过的时间，单位是秒
所以，griefforyou的函数:delay也可以写成:
Private Sub Delay(ByVal i As Integer)
Dim start As Single
start = Timer
Do While Timer < start + i
DoEvents
Loop
End Sub
效果应该是一样的

griefforyou 牛,赞成griefforyou

还想补充一下,griefforyou的函数的适用情况是时间间隔必须为整数秒,否则不适用,比如想停顿0.1秒是完不成的
我写的函数可以精确到0.01秒,不过,由于这个函数是获得从当天0:00起,当前时间所经过的秒数,所以这个函数在使用时不能跨0:00,否则会出现负值,而griefforyou的函数是可以跨0:00的