Suggest using timegettime or gettickcount API's for the delay. This approach will ensure that it runs at the same speed on every machine. Plus, it will also make the process much more efficient, with no dead time - other processes can be processed in the background. A for next loop with an irritation of 10,000 is a big ask for poor'ol slow & obsolete VB6.
Bookmarks