*********************************************
xmin = Text2(0).Text
xmax = Text2(1).Text
ymin = Text2(2).Text
ymax = Text2(3).Text
 
                          'Festlegung der rechten oberen Ecke
schrittwx = (xmax - xmin) / 250 'Schrittweite für x-Pixel
schrittwy = (ymax - ymin) / 150 'Schrittweite für y-Pixel
z = 1
y = ymin
For s = 1 To 150 'Höhe
Stprogbar1.Value = s / 1.5
x = xmin
 For z = 1 To 250 'Breite
 
 
  X1 = 0: Y1 = 0: zaehler = 0 '+++++Formel++++
  While zaehler <= 800 And Sqr(X1 ^ 2 + Y1 ^ 2) < 100 
   zaehler = zaehler + 1
   xx = X1 ^ 2 - Y1 ^ 2 + x 'Hilfsvariable
   Y1 = 2 * X1 * Y1 + y 'neuer Y-Wert
   X1 = xx 'neuer X-Wert
  Wend 'Ende der While-Schleife
*************************************************