由于某种原因，以下代码在尝试将数据添加到.List（0，1）列时开始中断。我不知道为什么不允许再将超过一列的数据添加到ListItem中，因为.AddItem命令使我可以使用10列，而我已经将列设置为10列。我缺少某些行来阻止我添加超出.List（0，0）位置的数据吗？

Private Sub ListBox3_Click()

Me.InfoBox.Clear
Me.InfoBox.ColumnCount = 10
Me.InfoBox.ColumnWidths = "20;20;20;20;20;20;20;20;20;20"
Me.InfoBox.Font.Size = 10
Me.InfoBox.Font.Bold = False
Me.InfoBox.ListIndex = -1

With Me.InfoBox
    .AddItem
    .List(0,0) = "A"
    .List(0,1) = "B"
    .List(0,2) = "C"
    .List(0,3) = "D"
    .List(0,4) = "E"
    .List(0,5) = "F"
    .List(0,6) = "G"
    .List(0,7) = "H"
    .List(0,8) = "I"
    .List(0,9) = "J"
End With

End Sub

在所有10列上都工作正常，直到我更改了此代码之后的循环。我把所有东西都改回来了，但是没有骰子。