[vb] un aiuto semplice

[lofcarlos]

ciao.
Sono alle primissime armi col VB6
Ho un problema.
Ho questo codice

con index che è integer in option explicit
Private Sub prenderetimer_timer()

If Picture1.Left >= (picture2(index).Left - 150) And Picture1.Left <= (picture2(index).Left + 150) Then
If Picture1.Top >= (picture2(index).Top - 150) And Picture1.Left <= (picture2(index).Left + 150) Then
picture2(index).Visible = False
End If
End If

End Sub

Ho delle immagini in un form che sono indicizzate(Picture2(0),picture2(1),ecc.) e una che si chiama picture1.
quando la picture1 arriva ad una determinata posizione, la picture2 che corrisponde a quelle coordinate deve scomparire.
questo codice non mi da il risultato richiesto.

come faccio?

[steno12]

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