FLASHY CIRCLES

'Form avec comme propriétés :
' - BackColor en noir
' - BorderStyle à 0 (none)
'et avec un timer a 10 ms d'interval

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode <> 0 Then
    End
End If
End Sub


Private Sub Form_Load()
Randomize
Timer1_Timer
End Sub


Private Sub Timer1_Timer()
Dim X(), Y(), Ray() As Single
Dim i, j, k, l, m As Integer

ReDim X(1): ReDim Y(1): ReDim Ray(1)

For i = 0 To 25
    ReDim Preserve X(UBound(X) + i)
    X(UBound(X)) = Rnd * Me.ScaleWidth
Next i

For j = 0 To 25
    ReDim Preserve Y(UBound(Y) + j)
    Y(UBound(Y)) = Rnd * Me.ScaleHeight
Next j

For k = 0 To 25
    ReDim Preserve Ray(UBound(Ray) + k)
    Ray(UBound(Ray)) = Me.ScaleHeight / 25 * Rnd
Next k

For l = LBound(X) To UBound(X)
    Call DrawCircle(X(l), Y(l), Ray(l))
Next l

For m = LBound(X) To UBound(X)
    Call DelCircle(X(m), Y(m), Ray(m))
Next m
End Sub


Private Sub DrawCircle(ByVal X As Single, ByVal Y As Single, ByVal Ray As Single)
Dim i, R, G, B As Integer

R = Rnd * 255
G = Rnd * 255
B = Rnd * 255

For i = 0 To Ray
    Me.Circle (X, Y), i, RGB(R, G, B)
    DoEvents
Next i
End Sub


Private Sub DelCircle(ByVal X As Single, ByVal Y As Single, ByVal Ray As Single)
Dim i As Integer

For i = 0 To Ray
    Me.Circle (X, Y), i, Me.BackColor
    DoEvents
Next i
End Sub