Private Sub Form_Load()
ListView1.HideSelection = False
Dim i As Integer
ListView1.OLEDragMode = ccOLEDragAutomatic
ListView1.ListItems.Clear
Set itmX = ListView1.ListItems.Add(, , "读者信息来源", 10)
Set itmX = ListView1.ListItems.Add(, , "读者学历设置", 10)
Set itmX = ListView1.ListItems.Add(, , "职业设置", 10)
Set itmX = ListView1.ListItems.Add(, , "邮件种类设置", 10)
Set itmX = ListView1.ListItems.Add(, , "购买动机设置", 10)
Set itmX = ListView1.ListItems.Add(, , "图书分类信息设置", 10)
Set itmX = ListView1.ListItems.Add(, , "图书信息来源", 10)
Set itmX = ListView1.ListItems.Add(, , "购买渠道来源", 10)
ListView1.ForeColor = vbWhite
End Sub
以上为程序代码，老是提示“索引超出边界”，不知问题何在？求高手解答