必要以上に再描画してるだけでしょ
大方再描画イベント使わないで無限ループ内にDoEvents置いたんじゃねえの