上のはVC6SP5速度最適化。
最適化無しにしても20msくらい遅くなるだけ(timeBeginPeriod(1)使用)。