求助！！！！！！

ReDim ListindexX(1 To List1(0).SelCount)
   i1 = 1
   For i2 = 0 To List1(0).ListCount - 1 '将选中的预报因子表项序号存放在ListindexX(i1)中
       If List1(0).Selected(i2) = True Then ListindexX(i1) = i2: i1 = i1 + 1
   Next i2
   

调试时出现：对象变量或with块变量未设置 --------------------编程问答-------------------- 窗口有没有List1(0).这个控件？其index必须设置为0 --------------------编程问答-------------------- ok，谢谢！！！！！！！！！！！！

补充：VB ,  数据库(包含打印，安装，报表)