added DoEvents

DoEvents