Ciao a tutti, mi sono perso nell'uscire da questi cicli e questi if.
in pratica date 4 linee e per ognuna punto origine e punto finale, creare un quadrato o rettangolo che sia!
quindi avevo pensato di fare vari casiin vase a come sono unite le prime 2 inee, succ la 3 e poi la 4 a verificare che chiuda il quadrilatero.
non riesco però ad uscire completamente dal ciclo quando mi trovo il valore corretto!!

For i = 1 To NumLines - 1
ProgressBar1.Value = i
DoEvents
line1 = LineArray(i)
For j = i + 1 To NumLines
line2 = LineArray(j)
DoBlend = False
CalcTimerStart = Timer

If line1.OrigName = line2.OrigName Then

For k = 1 To NumLines
Line3 = LineArray(k)
DoBlend = False

If (Line3.ExtremName = line2.ExtremName) Or (Line3.OrigName = line2.ExtremName) Then

For m = 1 To NumLines
Line4 = LineArray(m)
If ((Line3.OrigName = Line4.OrigName) And (line1.ExtremName = Line4.ExtremName)) Or ((Line3.ExtremName = Line4.ExtremName) And (Line4.OrigName = line1.ExtremName)) Then

DoBlend = True

Exit For ' con questo mi esce fal 1 ciclo ma non mi va diretto alla verifica della condizione (if Doblen then) e i passa diretto all'altro k (cosa che non voglio!!!)

End If
Next m
End If
Next k


da qui avrei :

if DoBlen then

' quello che fa

End If

Next j
Next i

' altre cose
end if



spero di essere riuscito a farvi capire il mio problema!!
ciao a tutti e grazie, se avete altre vie sono ben accette!!
ciaooo