1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
8. 8
9. 9
10. 10
11. 11
12. 12
13. 13
14. 14
15. 15
16. 16
17. 17
18. 18
19. 19
20. 20
21. 21
22. 22
23. 23
24. 24
25. 25
26. 26
27. 27
28. 28
29. 29
30. 30
31. 31
32. 32
33. 33
34. 34
35. 35
36. 36
37. 37
38. 38
39. 39
40. 40
41. 41
42. 42
43. 43
44. 44
45. 45
46. 46
47. 47
48. 48
49. 49
50. 50

Dim centerX As Integer
Dim centerY As Integer
Dim radius As Integer

Private Sub Form_Activate()
    centerX = 100
    centerY = 100
    radius = 50
End Sub

Private Sub Timer1_Timer()
    Randomize
    Dim x As Integer
    Dim y As Integer
    Dim i As Integer
    Dim diff As Integer
    
    For i = 0 To 100
        Me.ForeColor = RGB(200, 0, 0)
        x = centerX + (radius * Rnd)
        y = centerY + (radius * Rnd)
        diff = Sqr(((centerX - x) ^ 2) + ((centerY - y) ^ 2))
        If (Abs(radius - diff) < 2) Then
            Me.PSet (x, y)
        End If
        
        Me.ForeColor = RGB(100, 0, 0)
        x = centerX - (radius * Rnd)
        y = centerY + (radius * Rnd)
        diff = Sqr(((centerX - x) ^ 2) + ((centerY - y) ^ 2))
        If (Abs(radius - diff) = 0) Then
            Me.PSet (x, y)
        End If
        
        x = centerX + (radius * Rnd)
        y = centerY - (radius * Rnd)
        diff = Sqr(((centerX - x) ^ 2) + ((centerY - y) ^ 2))
        If (Abs(radius - diff) = 0) Then
            Me.PSet (x, y)
        End If
        
        Me.ForeColor = RGB(0, 100, 0)
        x = centerX - (radius * Rnd)
        y = centerY - (radius * Rnd)
        diff = Sqr(((centerX - x) ^ 2) + ((centerY - y) ^ 2))
        If (Abs(radius - diff) > 2) Then
            Me.PSet (x, y)
        End If
    Next i
End Sub