"Альтернативные" решения

Dim Points(300) as Bubble 'Точки, в данном случае их 300

Dim Screen() as Long 'Копия окна

Public Sub DrawBubble()
Static i, j, MaxX, MaxY, MaxR As Integer
MaxX = picOut.ScaleWidth 'размеры окна
MaxY = picOut.ScaleHeight
MaxR = 100 ' максимальный радиус пузырей
ReDim Screen(MaxX, MaxY)
Erase Points
For i = 0 To 300
With Points(i)
.X = Int(Rnd * MaxX)
.Y = Int(Rnd * MaxY)
.Radius = Int(Rnd * MaxR + 10)
.CurrentR = 0
.CurColor = RGB(255, 255, 255)
Screen(.X, .Y) = .CurColor
End With
Next
Do While DoesALLZero
For i = 0 To 300
With Points(i)
If .CurColor > 0 Then
.CurrentR = .CurrentR + 1 'Увеличиваем радиус
.CurColor = RGB(255 - (.CurrentR / .Radius) * 255, 255 - (.CurrentR / .Radius) * 255, 255 - (.CurrentR / .Radius) * 255) 'Уменьшаем яркость
fCircle .X, .Y, .CurrentR, .CurColor 'Рисуем окружность
End If
End With
Next
Loop
DrawScreen 'Вырисовываем окно
End Sub
Private Function DoesALLZero() As Boolean
Static i, j As Integer
'Проверяем у всех ли пузырей яркость=0
j = 0
For i = 0 To 300
If Points(i).CurColor <= 0 Then j = j + 1
Next
If j >= 300 Then
DoesALLZero = False
Else: DoesALLZero = True
End If
End Function
Private Sub fCircle(ByVal X As Integer, ByVal Y As Integer, ByVal Radius As Integer, ByVal Color As Long)
'Процедура рисует окружность с центром (X,Y) радиусом R и цветом Color
Static i, j As Integer
Static N, M As Double
For i = 0 To 410 'Чем больше число - тем "качественней" окружность (тем дольше она рисуется)
N = (X + Cos(i) * Radius)
M = (Y - Sin(i) * Radius)
If (Abs(N) < UBound(Screen, 1)) And (Abs(M) < UBound(Screen, 2)) Then
If Screen(Abs(N), Abs(M)) < Color Then Screen(Abs(N), Abs(M)) = Color
End If
Next
End Sub
Private Sub DrawScreen()
'Рисует Screen
Static i, j As Integer
For i = 0 To UBound(Screen, 1)
For j = 0 To UBound(Screen, 2)
SetPixelV picOut.hdc, i, j, Screen(i, j)
Next j
Next i
End Sub