DefDbl A-Z
Private Colors(31) As Long
Private Const XMin = -0.7
Private Const XMax = 2.1
Private Const YMin = -1.2
Private Const YMax = 1.2
Private Const TiefMax = 255
Private Const St = 1
 
 
Private Sub Form_Activate()
 
   DeltaX = (XMax - XMin) / Form1.ScaleWidth
   DeltaY = (YMax - YMin) / Form1.ScaleHeight
   XKomplex = XMin
   YKomplex = YMin
   For Y = 0 To Form1.ScaleHeight Step St
     For X = 0 To Form1.ScaleWidth Step St
        DoEvents
        Form1.Caption = "X = " & X & " Y = " & Y
        Tiefe = 0
        XWert = 0
        YWert = 0
        xx = 0
        yy = 0
        While Tiefe < TiefMax And xx + yy < 8
           YWert = 2 * XWert * YWert - YKomplex
           XWert = xx - yy - XKomplex
           xx = XWert ^ 2
           yy = YWert ^ 2
           Tiefe = Tiefe + 1
        Wend
        If Tiefe >= TiefMax Then
           Farbe = 0
        Else
           Farbe = (Tiefe Mod 31) + 1
        End If
        XKomplex = XKomplex + DeltaX * St
        With Form1
          .CurrentX = X
          .CurrentY = Y
        End With
        Form1.Line (X, Y)-(X + St - 1, Y + St - 1), Colors(Farbe), BF
     Next X
     XKomplex = XMin
     YKomplex = YKomplex + DeltaY * St
  Next Y
End Sub
 
Private Sub Form_Load()
   WindowState = vbMaximized
   BackColor = vbBlack
   AutoRedraw = True
   Form1.ScaleMode = 3
   Colors(0) = 0
   Colors(1) = 0
   Colors(2) = RGB(&H3F, 0, &H9F)
   Colors(3) = RGB(&H2F, 0, &HAF)
   Colors(4) = RGB(&H1F, 0, &HAF)
   Colors(5) = RGB(0, 0, &HBF)
   Colors(6) = RGB(0, &H2F, &HCF)
   Colors(7) = RGB(0, &H3F, &HCF)
   Colors(8) = RGB(0, &H4F, &HDF)
   Colors(9) = RGB(0, &H6F, &HEF)
   Colors(10) = RGB(0, &H8F, &HEF)
   Colors(11) = RGB(0, &HAF, &HFF)
   Colors(12) = RGB(0, &HCF, &HCF)
   Colors(13) = RGB(0, &HFF, &HCF)
   Colors(14) = RGB(0, &HFF, &H5F)
   Colors(15) = RGB(0, &HFF, 0)
   Colors(16) = RGB(&H4F, &HFF, 0)
   Colors(17) = RGB(&H8F, &HFF, 0)
   Colors(18) = RGB(&HBF, &HFF, 0)
   Colors(19) = RGB(&HFF, &HFF, 0)
   Colors(20) = RGB(&HFF, &HCF, 0)
   Colors(21) = RGB(&HFF, &HAF, 0)
   Colors(22) = RGB(&HFF, &H7F, 0)
   Colors(23) = RGB(&HFF, &H5F, 0)
   Colors(24) = RGB(&HFF, &H2F, 0)
   Colors(25) = RGB(&HEF, 0, &H2F)
   Colors(26) = RGB(&HDF, 0, &H5F)
   Colors(27) = RGB(&HDF, 0, &H8F)
   Colors(28) = RGB(&HCF, 0, &HAF)
   Colors(29) = RGB(&HAF, 0, &HCF)
   Colors(30) = RGB(&H6F, 0, &HAF)
   Colors(31) = RGB(&H3F, 0, &H9F)
End Sub