我用sleep函数来延迟，调试的时候是一个个出来的，但运行是却是等待一段时间后出来
请高手帮帮忙，源码可以下载，在线等回复
这是源码：
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 4
Label1.Caption = Val(i)
List1.AddItem "第" & Str(i) & "个"
Call Sleep(500)
Next i
End Sub
XQ0PVZBD.rar
