- Dim X(150), Y(150), S(150) As Integer
- Private Sub Form_Activate()
- Randomize
- For i = 1 To 150
- X(i) = Int(Me.Width * Rnd)
- Y(i) = Int(Me.Height * Rnd)
- S(i) = Int(Rnd * 16)
- Next
- End Sub
-
- Private Sub Form_Load()
- Me.BackColor = 0
- End Sub
-
- Private Sub Timer1_Timer()
- For i = 1 To 150
- Circle (X(i), Y(i)), S(i), vbWhite
- Next
- Timer1.Enabled = False
- End Sub
Dim X(150), Y(150), S(150) As Integer
Private Sub Form_Activate()
Randomize
For i = 1 To 150
X(i) = Int(Me.Width * Rnd)
Y(i) = Int(Me.Height * Rnd)
S(i) = Int(Rnd * 16)
Next
End Sub
Private Sub Form_Load()
Me.BackColor = 0
End Sub
Private Sub Timer1_Timer()
For i = 1 To 150
Circle (X(i), Y(i)), S(i), vbWhite
Next
Timer1.Enabled = False
End Sub