Additionally, WaitEvent(1) will time out after 1 millisecond, which will be slightly (not much) of a less of a hog of the CPU...
A better way would be to Create a Timer and then check inside your loop (inside the Select part) for the Timer Event... that way your status bar can be updated as often as you want and everything else can wait it's turn.
A better way would be to Create a Timer and then check inside your loop (inside the Select part) for the Timer Event... that way your status bar can be updated as often as you want and everything else can wait it's turn.