Составить фрактал Ньютона на VB

[Prozelokvo]

Здравствуйте! Помогите, пожалуйста, составить фрактал Ньютона на VB.
Попробовал перевести с pascal-я, такая каша получилась:
Dim x, y As Long
Private Sub Command1_Click()
x = xmin
iter = 50
Max = 1000000#
Min = 0.000001
Randomize
mx = 100 \ 2
my = 100 \ 2
For y = -my To my
For x = -mx To mx
n = 0
zx = x * 0.005
zy = y * 0.005
dx = zx
dy = zy
Do While Sqr(zx) + Sqr(zy) < Max And Sqr(dx) + Sqr(dy) > Min And n < iter
tx = zx
ty = zy
p = Sqr(Sqr(tx) + Sqr(ty))
zx = 2 / 3 * tx + (Sqr(tx) - Sqr(ty)) / (3 * p)
zy = 2 / 3 * ty * (1 - tx / p)
dx = Abs(tx - zx)
dy = Abs(ty - zy)
n = n + 1
Loop
Picture1.PSet (mx + x, my + y)
Next
Next
End Sub