' QUELLE: Razor-Software, verbessert von St-software

'Created by RazoR Software 
'
' http://members.xoom.com/RazoRGraphic/index.html
'If code is used in other program please leave credit to
'RazoR Software 
' 
Private Sub Form_Load()
    Me.AutoRedraw = True 
    Me.BackColor = vbBlack  'Sets Backgraound color to Black 
    a = Screen.TwipsPerPixelX   'Twips per each pixel on X 
    b = Screen.TwipsPerPixelY   'Twips per each pixel on Y 
    Randomize Timer
    X = Int(Rnd * Me.Width / a) 'Create Random Number 
    Y = Int(Rnd * Me.Height / b)
    Call CCircle(X, Y, True)    'Call Sub to create circle 
End Sub 

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Unload Me
End Sub 

Sub CCircle(X, Y, JL As Boolean)
 
    'JL = Should it set Auto redraw to false 
 
    If JL = False Then Me.AutoRedraw = False 
    Randomize Timer
    Y2 = Y  'Set Y 
 
    aaa = 10   'Radius: If you want a hole in 
               'Center set it to about 100 or 200 
 
    If s1 = 0 Then 
        r = Int(Rnd * 255)  'Create random color 
        g = Int(Rnd * 255)
        b = Int(Rnd * 255)
    Else 
        r = r1
        g = g1
        b = b1
    End If 
    cm = 0  'Color to fade to 
 
    For c = 0 To 10000
        a = RGB(r, g, b)    'Create Color 
        If r > cm Then r = r - 0.5  'Checks to see if should 
        If r < cm Then r = r + 0.5  'add or subtract from 
        If g > cm Then g = g - 0.5  'Circle color 
        If g < cm Then g = g + 0.5
        If b > cm Then b = b - 0.5
        If b < cm Then b = b + 0.5
        If r = cm And g = cm And b = cm Then c = 10000
        aaa = aaa + 1   'Adds to Radius 
        Circle (X, Y), aaa, a   'Creates circle 
        Circle (X, Y + 10), aaa, a
    Next 
 
   DoEvents
 
done:
Me.AutoRedraw = True 
 
End Sub 


Private Sub Timer1_Timer()
'Call CCircle 
 
    a = Screen.TwipsPerPixelX   'Twips per each pixel on X 
    b = Screen.TwipsPerPixelY   'Twips per each pixel on Y 
    'Randomize Timer 
    X = Int(Rnd * Me.Width)  'Create Random Number 
    Y = Int(Rnd * Me.Height)
    Call CCircle(X, Y, True)    'Call Sub to create circle 
 End Sub