Can't you do the same thing with a DoEvents Loop?

VB Code:
  1. While DoEvents 

  2.  
  3.    ' game body

  4.  
  5.  Wend

  6.  
  7.  ' clean up