cad二次开发问题，一段关于修改块的线条颜色材料明细表的程序，报服务器错误，请大神帮忙解读一下？

Question

'修改块的线条颜色材料明细表
Dim blockCol As AcadBlocks = acaddoc.Blocks
For Each eleblo As AcadBlock In blockCol
If InStr(eleblo.Name, "TABLEANNOTATION") Then
For i = 0 To eleblo.Count - 1
If eleblo.Item(i).ObjectName.ToLower = "acDbLine".ToLower Then
eleblo.Item(i).TrueColor = color
Else
eleblo.Item(i).TrueColor = txtColor '''''''''''''''''文件处理器错误
eleblo.Item(i).Layer = "TEXT"

End If
Next
End If
Next
报错：
服务器出现意外情况。（异常来自 HRESULT:0x80010105（RPC_E_SERVERFAULT））
重装过系统，换过cad版本，上述错误还在。
注：这是前辈留下的程序，本人CAD一窍不通，大神能解释下上述代码的意思吗？

Answer 1

忘了说了，用的是vb语言