我想按把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编辑过]

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