Question

VB控件数组判定是否存在

Private Sub Timer3_Timer()
For i = 1 To Image3.UBound
Image3(i).Left = Image3(i).Left + 10
Image3(i).Top = Image3(i).Top + 10
If Image3(i).Top > game.Height Then
Unload Image3(i)
End If
Next i
End Sub
语句中有可能随机卸载一个控件，这样执行FOR-NEXT语句时就会出现某个控件不存在，怎么让VB先判定控件是否存在，然后在执行语句

Answer 1

if not Image3(i) is nothing then '存在
Image3(i).Left = Image3(i).Left + 10
Image3(i).Top = Image3(i).Top + 10
If Image3(i).Top > game.Height Then
Unload Image3(i)
End If
end if