I'm afraid I've found a problem. I tried pushing the system a little further by creating several objects. Try this in place of the three lines to create the balls...
I find that they gradually get stuck in space. Looks to me like they're getting caught up in a perpetual loop reacting to collisions-- except that they aren't vibrating at all. So I don't know. I'll keep looking.
For MakinBalls = 1 To 40 ball.ball=ballnew(10+Rnd(0,5),100+Rnd(0,5),-30-Rnd(0,20), Rnd(1,2), 0.8, (MakinBalls Mod 3)+1) Next
I find that they gradually get stuck in space. Looks to me like they're getting caught up in a perpetual loop reacting to collisions-- except that they aren't vibrating at all. So I don't know. I'll keep looking.