This array is fixed or temporarily locked (Error 10) - VB

Формулировка задачи:

На одной из машин (букер WinXP Home Edition SP2) прилуда (VB6 SP5) получает эту ошибку при попытке ERASE. При компиляции в P-Code все работает нормально. Может кто сталкивался такой ситуацией? Заранее благодарен за ответы.

Решение задачи: «This array is fixed or temporarily locked (Error 10)»

textual
                            Листинг программы 
                        

                            For N to Lbound(UserTypeArray) to Ubound (UserTypeArray)
  Erase UserTypeArray(N).ArrayName
  Set UserTypeArray(N).ObjectName = Nothing
  '...
Next
erase UserTypeArray
                        