每秒从list1移动第1行内容到list2

Question

Do While List1.ListCount
List2.AddItem List1.List(0)
List1.RemoveItem 0
Loop
上面这段是移动全部 我想每秒从list1移动第1行内容到list2 怎么写？

Answer 1

把
List2.AddItem List1.List(0)
List1.RemoveItem 0放在一个Timer中啊

Answer 2

加个timer定时器，设为1000，把代码放到定时器里

Answer 3

我之前是把Do While ... loop也加进去了 现在去掉正常了 谢谢你们

Answer 4

Private Sub Form_Load()
    Timer1.Enabled = False
    
End SubPrivate Sub Command1_Click()
    Timer1.Interval = 1000
    Timer1.Enabled = True
    
End SubPrivate Sub Timer1_Timer()
List2.AddItem List1.List(0)
List1.RemoveItem 0    
End Sub