Private Sub Command2_Click()
 
For Y = 0 To 517
    For X = 0 To 685
 
        test = Picture1.Point(X, Y)
        If test < 15 Then
            Picture1.PSet (X, Y), RGB(255, 0, 0)
            Feld(X, Y) = rekursiv(X, Y)
        End If
    Next X
Next Y
End Sub