Private Sub Form_Activate()
 
  Dim i&, j&, k&, n&, r&, F1&, Pi!
  Dim Colors&(4), C1&(2), C2&(2), C3&(2)
 
  n = 50 ' Breite
  Pi = 4 * Atn(1)
  For i = 0 To 4
    Colors(i) = Choose(i + 1, vbRed, vbYellow, _
      vbGreen, vbBlue, vbMagenta)
  Next i
  With Me
    .ScaleMode = vbPixels
    .BackColor = RGB(0, 0, 130)
    .WindowState = vbMaximized
    DoEvents
    .AutoRedraw = True
    .DrawWidth = 2
    r = .ScaleWidth / 2 ' Radius
    For i = 0 To UBound(Colors) - 1
      F1 = Colors(i)
      For j = 0 To 2
        C1(j) = F1 And &HFF
        F1 = F1 \ &H100
      Next j
      F1 = Colors(i + 1)
      For j = 0 To 2
        C2(j) = F1 And &HFF
        F1 = F1 \ &H100
      Next j
      For k = 0 To n - 1
        For j = 0 To 2
          C3(j) = C1(j) + (C2(j) - C1(j)) / n * k
        Next j
        Me.Circle (.ScaleWidth / 2, .ScaleHeight - 1), _
          r, RGB(C3(0), C3(1), C3(2)), 0, Pi
        r = r - 1
        If r < 1 Then r = 1
      Next k
    Next i
    .DrawWidth = 1
  End With
 
End Sub

Gruss,

Zardoz