Vb.net 单击事件时循环浏览列表框

我有一个包含项目的列表框，当我按下一个按钮时，我想转到下一个项目。我有一个可怕的大脑放屁，已经有一段时间了

for x = 0 to listbox1.items.count - 1
     label1.text = listbox1.items.item(x)
     x += 1
next

我可能犯了一个愚蠢的错误：（

---

谢谢！

将循环中的代码放入

单击事件处理程序

Private listItemIndex As Integer = 0

Private Sub Button_Click(sender As Object, e As EventArgs)
    If listItemIndex < ListBox1.Items.Length Then
        Label1.Text = ListBox1.Items(listItemIndex).ToString()
        listItemIndex += 1
    End If
End Sub

/编辑：注意在项目中的任何地方启用
选项Strict
，除非有令人信服的理由不这样做。这会使编译器认识到更多潜在的问题。这也意味着上述代码需要显式转换（或调用
ToString
）由于
ListBox.Items
在重读后返回
Object
s.
+1，我认为这可能是OP所追求的。
For Each item In ListBox1.Items
    Label1.Text = item.ToString()
Next