下面是网上VB编写的一端读取数据的程序
Private Sub OPCItemSyncReadButton_Click(Index As Integer)
On Error GoTo ShowOPCSyncReadError
ItemCount = 1
Dim SyncItemValues() As Variant
Dim SyncItemServerHandles(1) As Long
Dim SyncItemServerErrors() As Long
SyncItemServerHandles(1) = ItemServerHandles(Index + 1)

ConnectedGroup.SyncRead OPCDevice, ItemCount, SyncItemServerHandles, SyncItemValues, SyncItemServerErrors

If SyncItemServerErrors(1) = 0 Then
OPCItemValue(Index).Text = SyncItemValues(1)
End If

GoTo SkipOPCSyncReadError

ShowOPCSyncReadError:
Call DisplayOPC_COM_ErrorValue("OPC Sync Read", Err.Number)
SkipOPCSyncReadError:
End Sub
该程序此时运行正常，但当我将其移植到TIMER下的事件时，总是SyncItemServerHandles(1) = ItemServerHandles(Index + 1)
报超过下标，这句是什么意思啊
该程序总共有10个Item,我只是想定时将数据读出，请问怎么办？