Vb.net 长度>；1但在for循环中仅执行一次

代码：

选中，并

ToDoListItems。长度
为
3
，但
ToDoListBox
中只有一项

这段代码有什么问题？它似乎在for循环中。
在for循环上放置一个断点，然后逐步完成它。这应该揭示出发生了什么，这意味着什么@SSS@user3698272在
for
循环中，所有内容只运行了一次。您的代码似乎正在处理
MyBase.Load
。这是表单的加载事件吗？如果是，请检查输出窗口中是否存在任何异常。
Private Sub RefreshToDoList() Handles MyBase.Load
    If FileExists(NewEvent.ToDoItems_Path) And FileExists(NewEvent.ToDoDates_Path) And FileExists(NewEvent.ToDoContents_Path) Then
        If Not ContentOf(NewEvent.ToDoItems_Path).ToString = "" And Not ContentOf(NewEvent.ToDoDates_Path).ToString = "" And Not ContentOf(NewEvent.ToDoContents_Path).ToString = "" Then
            ToDoListItems = ContentOf(NewEvent.ToDoItems_Path).ToString.Split(New String() {Environment.NewLine}, StringSplitOptions.None)
            ToDoListDates = ContentOf(NewEvent.ToDoDates_Path).ToString.Split(New String() {Environment.NewLine}, StringSplitOptions.None)
            ToDoListContents = ContentOf(NewEvent.ToDoContents_Path).ToString.Split(New String() {Environment.NewLine}, StringSplitOptions.None)
        End If


        If ToDoListItems.Length = ToDoListDates.Length And ToDoListItems.Length = ToDoListContents.Length Then
            For count As Integer = 0 To ToDoListItems.Length - 1
                ToDoListBox.Items.Add(ToDoListItems(count))
                ToDoListInfo(count) = "Date : " + ToDoListDates(count) + Convert.ToString(Environment.NewLine + Environment.NewLine) + "Content : " + ToDoListContents(count)
            Next
        End If
    End If
End Sub