Private Sub waittime(delay As Single)
Dim starttime As Single
starttime = Timer
Do Until (Timer - starttime) > delay
DoEvents
Loop
End Sub
我用
waittime(15)
不管用

Private Sub 查看_Click()
Dim X As Long, Txt As String
With List1
For X = 0 To .ListCount - 1
If .Selected(X) Then Txt = Txt + .List(X) + vbCrLf
waittime(15)
Next
End With
Text2.Text = Txt
End Sub
这样调用，是时间太长还是怎么回事啊，求教

不好意思 大神们 我才发现是位置放错了
Private Sub 查看_Click()
Dim X As Long, Txt As String
With List1
For X = 0 To .ListCount - 1
If .Selected(X) Then Txt = Txt + .List(X) + vbCrLf
Next
End With
Text2.Text = Txt
waittime(15)
End Sub
这样子就好了。额，可是为什么呢。难道它不是逐条进行？