Не могли бы вы продемострировать проблему? Например записать на её на видео.
Также просьба, прикрепите, пожалуйста, тестовый проект и напишите на каком ПК появляется проблема (ОС, кол-во ОЗУ, ЦП и тд.).
Дополню к ответу выше
Вместо джаваскриптовой функции в БАСе, удобней и лучше использовать функцию БАСа rand()
Т.е., в if условии прописать что-то вроде
