Dim xxxx As Single
Dim yyyy As Single
Dim xxx(30) As Single
Dim yyy(30) As Single
Dim dx(30) As Single
Dim dy(30) As Single
Dim c(30) As Single

Private Sub Form_Load()
Randomize Timer
For kalle = 1 To 15
xxx(kalle) = Int(Rnd * 10000) + 1
yyy(kalle) = Int(Rnd * 10000) + 1
dx(kalle) = Int(Rnd * 10) - 5
dy(kalle) = Int(Rnd * 10) - 5
c(kalle) = Int(Rnd * 15) + 1
Next
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
xxxx = X
yyyy = Y
End Sub

Private Sub Timer1_Timer()
Cls
For kalle = 1 To 15
Circle (xxx(kalle), yyy(kalle)), 100, QBColor(c(kalle))
xxx(kalle) = xxx(kalle) + dx(kalle)
yyy(kalle) = yyy(kalle) + dy(kalle)

'De ska till mitten
If xxx(kalle) < Form1.Width / 2 Then dx(kalle) = dx(kalle) + 1
If xxx(kalle) > Form1.Width / 2 Then dx(kalle) = dx(kalle) - 1
If yyy(kalle) < Form1.Height / 2 Then dy(kalle) = dy(kalle) + 1
If yyy(kalle) > Form1.Height / 2 Then dy(kalle) = dy(kalle) - 1

'De tycker inte om muspekaren.
If xxx(kalle) < xxxx Then dx(kalle) = dx(kalle) - 0.5
If xxx(kalle) > xxxx Then dx(kalle) = dx(kalle) + 0.5
If yyy(kalle) < yyyy Then dy(kalle) = dy(kalle) - 0.5
If yyy(kalle) > yyyy Then dy(kalle) = dy(kalle) + 0.5
Next
End Sub