VB.NET如何从列表框中获取内容并将其自动添加到文本框中

好吧，长标题我知道，但我需要一些帮助

我目前没有任何代码，因为我不知道从哪里开始

以下是我需要做的：

我需要将第一行文本从列表框移动到文本框 然后等几秒钟，移到第二行文本，然后等几秒钟，移到第三行，依此类推，再移到第四行

这是为了一个我想做的项目，但我仍然停留在这一部分

请帮帮我，我被困了大约4个小时。

请尝试以下代码：

For Each objItem As Object In Me.ListBox1.Items
    Me.TextBox1.Text = objItem.ToString
    Me.TextBox1.Refresh()
    Threading.Thread.Sleep(2000) 'wait 2000 milliseconds = 2 seconds
Next objItem

---

我的天啊，到目前为止，我的工作就像一个符咒，我会让你知道它是否符合我的意图！