Private Sub Command1_Click()
 
Dim dd As Integer, Farbe(190) As Long
Dim Z As Integer, FN As Integer
Dim XMin As Single, XMax As Single, YMin As Single, YMax As Single
Dim SchrittwX As Single, SchrittwY As Single
Dim X As Single, Y As Single, S As Integer
Dim X1 As Single, Y1 As Single, Zaehler As Integer
Dim XX As Single, Pro As Long
 
'Zufällige Belegung der Farben:
Randomize
For Z = 0 To 190
  Farbe(Z) = Rnd * vbWhite
Next Z
 
'So müssen die Farben zugeordnet werden:
'Farbe(0) = RGB(157, 195, 221)
'Farbe(1) = RGB(147, 190, 220)
'...
'Farbe(189) = RGB(135, 47, 6)
'Farbe(190) = RGB(78, 0, 117)
 
Me.BackColor = vbBlack
Me.ScaleMode = vbPixels
With Picture1
.BorderStyle = 0
.ScaleMode = vbPixels
.AutoRedraw = True
.Move 8, 8, 250, 150
.Cls
XMin = Text1.Text
XMax = Text2.Text
YMin = Text3.Text
YMax = Text4.Text
SchrittwX = (XMax - XMin) / 250 'Schrittweite für x-Pixel
SchrittwY = (YMax - YMin) / 150 'Schrittweite für y-Pixel
dd = 1
Y = YMin
Pro = 200 * CLng(200)
For S = 0 To 149 'Höhe
  X = XMin
  For Z = 0 To 249 'Breite
    X1 = 0: Y1 = 0: Zaehler = 0
    Do While Zaehler <= 500 And X1 * X1 + Y1 * Y1 < Pro
      Zaehler = Zaehler + 1
      XX = X1 * X1 - Y1 * Y1 + X
      Y1 = 2 * X1 * Y1 + Y
      X1 = XX
    Loop
    FN = Zaehler - 2 - dd
    If FN < 0 Then
      FN = 0
    ElseIf FN > 190 Then
      FN = 190
    End If
    Picture1.PSet (Z, S), Farbe(FN)
    X = X + SchrittwX
  Next Z
  Y = Y + SchrittwY
  If (S Mod 5) = 0 Then
    DoEvents
  End If
Next S
'SavePicture .Image, "C:\fraktal\Fraktalx.bmp" 'Grafik speichern
End With
 
End Sub