For i = 0 To 1 'invece di 1 metti gli indici totali delle picture2 -1
If Picture1.Left >= Picture2(i).Left - 150 _
And Picture1.Left <= Picture2(i).Left + 150 _
Or Picture1.Top >= Picture2(i).Top - 150 Then
Picture2(i).Visible = False
End If
Next i

questo ciclo controlla solo 2 picture2, rispettivamente picture2(0) e picture2(1).
Se gli indici delle picture2 arrivano per esempio a 17, sostituisci
for i=0 to 16
Se gli indici delle picture2 arrivano a 2004, sostituisci
for i=0 to 2003

ecc, ecc.

link
homepage http://%77%77%77%2e%74%77%6f%72%6b%2e%69%74/
forum http://%77%77%77%2e%74%77%6f%72%6b%2...um/default.asp