Hum... there are some things I don't get:

1) Didn't VB give you an error in this line: "ChDir (App.Path)"? You shouldn't use brackets... it should be "ChDir App.Path"

2) Anyway, you shouldn't be using ChDir. I'd do it this way:
LoadSprite App.Path & "\ball.bmp"

3) What error does it give you, and in what line?