我想按把LISTBOX内容间隔10秒时间逐个读到文本框 内，谢谢。

Dim i As Integer
Private Sub Form_Load()
    List1.AddItem "1603000100496EC"
    List1.AddItem "170300010052973D"
    List1.AddItem "18030001008297C2"
    Me.Timer1.Interval = 10000  '10秒
End Sub

Private Sub Timer1_Timer()
For i = 0 To List1.ListCount - 1
    Text1.Text = List1.List( i)
Next
Debug.Print Text1.Text
End Sub

[此贴子已经被作者于2023-7-28 11:50编辑过]

大家动动手，展示一下吧，已经发出几天了，该活动活动了，把气氛烘托起来，别保持沉默。

Dim i As Integer
Private Sub Form_Load()
    List1.AddItem "1603000100496EC"
    List1.AddItem "170300010052973D"
    List1.AddItem "18030001008297C2"
    Me.Timer1.Interval = 10000  '10秒
    i=0
End Sub

Private Sub Timer1_Timer()
'For i = 0 To List1.ListCount - 1
    Text1.Text = List1.List(i)
    i=i+1
    if i = List1.ListCount then i=0
'Next
    Debug.Print Text1.Text
End Sub

谢谢，太感谢您啦，总是有点绕不过去这道坎。

给了他圆满的答案！

3楼写的不错！