Как перевести красивые картинки с VB.NET на VB.6.0?

Public r, w1, w2, scal, ss, xmax, v, m As Integer
Private Sub Command1_Click()
Randomize (Timer)
ss = 1
xmax = 500
v = 140
w1 = -0.2561797
w2 = -1#
x0 = 0
scal = 1950
For x = ss To xmax + 100 Step ss
   For y = ss To xmax Step ss
    re = (x - xmax / 2 + 1200) / scal
    im = (y - xmax / 2 + 1050) / scal
    For j = 1 To v
          rere = re
          re = Exp(re) * Sin(im) + w1
          im = Exp(rere) * Cos(im) + w2
          k = j
          If re > 40 Then j = v
          'If r > 450 Then j = v
     Next j
   ' Debug.Print re, im
    im = Abs(im)
    re = Abs(re)
        red = (42 * k) Mod 255
        green = (50 * k) Mod 255
        blue = (68 * k) Mod 255
     Col = RGB(red, green, blue)
    If ss > 1 Then Line (x + 0, y - 0)-Step(ss, ss), Col, BF
    If ss = 1 Then PSet (x, y), Col
   Next y
Next x
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_KeyPress(keyascii As Integer)
    If keyascii = 32 Then End
End Sub