Dim bedingung As Boolean
 
bedingung = True
While bedingung 
    For each p as PointF in Punkte 
        If Schnitt(p,x,y) => 0 then Schnittp += Schnitt(p,x,y) 
else
y += 1
Schnittp = -1
exit for
           End If
    Next 
If Schnittp => 0 then bedingung = false
End While