控件数组的问题？

access_boy_li

Private Sub Form_Load()
    On Error GoTo Err
'    Set img(0) = Me.imgLine1
'    Set img(1) = Me.imgLine2
'    Set img(2) = Me.imgLine3
'    Set img(3) = Me.imgLine4
'    Set img(4) = Me.imgLine5
'    Set img(5) = Me.imgLine6
'    Set img(6) = Me.imgLine7
'    Set img(7) = Me.imgLine8
'    Set img(8) = Me.imgLine9
'    Set img(9) = Me.imgLine10
    For i = 0 To 10
      
     Set img(i) = Me.Controls("imgLine" & i)
     
   
      
      
    Next
    Me.TimerInterval = 150
    Exit Sub
Err:
    MsgBox Err.Number & Err.Description
End Sub



Set img(i) = Me.Controls("imgLine" & i) 出错？？
怎么实现啊？？

Henry D. Sy

vba视乎不支持控件数组