Particles

For starters you create a new particle every loop which will bring your application to a crawl after a few seconds.
try moving the createpart( Rand(1,2), 0, Rand(1,2), 1, .1) line to the line directly under the spr=CreateSprite() line...