проверить объект

[BOO]

я загружаю много объектов в проге методом load
но некоторые я потом ремувлю (unload)Вопрос уважаемые знатаки: как проверить существует ли объект

[Yurich]

If Object Is Nothing Then ...

[BOO]

Sub HideTank()

HideTanks = True

For I = 1 To System.Count

1: Debug.Print I, System.Count
If I = System.Count Then Exit For
If System(I) Is Nothing Then I = I + 1: GoTo 1
System(I).Visible = False

Next I
End Sub

загружены
system(0)
system(1)
system(3)
кидает ошибку что нет system(2)
мало того я пишу :
if system(100) is nothing then end 'конечно system(100) у меня нет! но прога не вырубается. System это pictureBox???

[Vi]

Проще всего работать с конструкцией For Each <object> In <collection>. Например,

Код: Выделить всё

For Each c In System
  c.Visible = not c.Visible ' или False, как у тебя
Next


Или анализировать (отлавливать) код ошибки. Допустим, через On Error Resume Next.