Sub bezier2d(x1, y1, x2, y2, x3, y3) Dim a, b, c, d, e, f, g, h, i a = 2 ^ 10 b = a * a c = x1 * b d = y1 * b e = ??? f = ??? g = 2 * x3 - 4 * x2 + 2 * x1 h = 2 * y3 - 4 * y2 + 2 * y1 For i = 0 To a Cells(d / b, c / b).Interior.Color = 0 c = c + e d = d + f e = e + g f = f + h Next End Sub