Dim zx As Single
Dim zy As Single
Dim cx As Single
Dim cy As Single
Dim culoare As Integer
Dim w1 As Integer
Dim h1 As Integer

Sub repeta()
 Dim a As Single
 Dim b As Single
 culoare = 0
 zx = 0
 zy = 0
 While (zx * zx + zy * zy < 4) And (culoare < 255)
  a = zx
  b = zy
  zy = 2 * a * b + cy
  zx = a * a - b * b + cx
  culoare = culoare + 1
 Wend
End Sub

Sub coloreaza()
 For x = 1 To w1
  For y = 1 To h1
   cx = x / 400
   cy = y / 400
   repeta
   If culoare = 1000 Then culoare = 0
   Picture1.PSet (x, y), RGB(0, culoare, 0)
  Next y
 Next x
End Sub

Private Sub Form_Load()
  w1 = Picture1.Width
  h1 = Picture1.Height
  coloreaza
End Sub