v7: Иногда зависает обработка

День добрый!
Есть такая обработка:

Перем Предел;
Перем РасшФ, Курсорчик;
Перем фЗакрытия;
Перем мФайл;
Перем НачСекунда, ТекСекунда;

//********************************************************************************
Функция Time()

Форма.Обновить();

Возврат currentTime(,,ТекСекунда);

КонецФункции // Time()

//********************************************************************************
Функция СлучайноеЧисло()

СлучайноеЧисло = _GetPerformanceCounter()%(Предел - 8);

Возврат СлучайноеЧисло;

КонецФункции // СлучайнаяПозиция()

//********************************************************************************
Функция Курсор()
КонецФункции

//********************************************************************************
Процедура РаспаковатьBin(ИмяФайла,ИдентификаторФайла,РазмерФайла)

//©Александр Маляев http://infostart.ru/projects/600

КаталогФормы = "";
ИмяФормы = "";
РасположениеФайла(КаталогФормы, ИмяФормы);

ТекстСкрипта = "
|Sub Main
| Dim FSO,F
| Set FSO = CreateObject(""Scripting.FileSystemObject"")
| Set F = FSO.OpenTextFile(""" + КаталогФормы + ИмяФормы + """, 1)
| Str = """"
| BeginFind = 0
| Do
| Char = F.Read(1)
| Str = Str & Char
| If BeginFind = 0 Then
| If Right(Str," + СокрЛП(СтрДлина(ИдентификаторФайла)) + ")=""" + ИдентификаторФайла + """ Then
| BeginFind = 1
| Str = """"
| End If
| Else
| If Right(Str,2) = ""BM"" Then
| F.Skip(1076)
| Str=F.Read(" + СокрЛП(РазмерФайла) + ")
| F.Close
| Set F=FSO.CreateTextFile(""" + ИмяФайла + """)
| F.Write(Str)
| F.Close
| Exit Do
| End If
| End If
| Loop While F.AtEndOfStream=0
|End Sub
|";

VBS = СоздатьОбъект("MSScriptControl.ScriptControl");

VBS.Language = "vbscript";
VBS.Timeout = -1;
VBS.AddCode(ТекстСкрипта);
VBS.Run("Main");

КонецПроцедуры

//********************************************************************************
Процедура ПриОткрытии()

Предел = 117;

Матф = СоздатьОбъект("Math");
Матф.SRANd(_GetPerformanceCounter());

currentTime(,,НачСекунда) ;

Курсорчик = КаталогИБ()+"cursor2.cur";

// определяем имя файла
мФайл = СлучайноеЧисло();

// собираем имя файла
СтрИмяФайла = Строка(мФайл);
РасшИмяФайла = ".jpg";
КаталогФайла = "\\MANAGER2\1Cv7\DB\Shablons\Funny\";
ИмяФайла = КаталогФайла + СтрИмяФайла + РасшИмяФайла;

Картинка.Загрузить(ИмяФайла);
Картинка.РежимРисования(2);

// убираем курсор
Курсорчик = КаталогИБ() + "cursor.cur";
Если ФС.СуществуетФайл(Курсорчик) = 0 Тогда
Состояние("Инициализация ...");
РаспаковатьBin(Курсорчик,"Курсор()", 198);
КонецЕсли;

Если (Форма.Параметр <> "modal") Тогда
ОткрытьФормуМодально("Processing#","modal",filePath());
СтатусВозврата(0);
Возврат;
КонецЕсли;

фЗакрытия = 0;
Форма.Закрыть();

КонецПроцедуры // ПриОткрытии

//********************************************************************************
Процедура ПриЗакрытии()

Если (фЗакрытия = 0) Тогда
СтатусВозврата(0);
КонецЕсли;

фЗакрытия = 1;

КонецПроцедуры // ПриЗакрытии

//********************************************************************************
Процедура СамоЗакрытие()

Форма.Закрыть(0);

КонецПроцедуры

//********************************************************************************
Функция ОбновитьКартинку()

ПрошлоСекунд = ТекСекунда - НачСекунда;

Если (ПрошлоСекунд = 8) Тогда

// определяем имя файла
мФайл = мФайл + 1;

// собираем имя файла
мСтрИмяФайла = Строка(мФайл);
мРасшИмяФайла = ".jpg";
мКаталогФайла = "\\MANAGER2\1Cv7\DB\Shablons\Funny\";
мИмяФайла = мКаталогФайла + мСтрИмяФайла + мРасшИмяФайла;

Картинка.Загрузить(мИмяФайла);
Картинка.РежимРисования(2);
НачСекунда = ТекСекунда;

КонецЕсли;

Форма.Обновить();

Возврат "";

КонецФункции // ОбновитьКартинку

//********************************************************************************
Процедура ПослеОткрытия()

РасшФ = СоздатьОбъект("Расширениеформы");
РасшФ.УстановитьФорму(Форма);

Окна = СоздатьОбъект("Окна");
Окна.СтильОкна(Форма, 1);

Если ФС.СуществуетФайл(Курсорчик) = 1 Тогда
РасшФ.УстановитьКурсор(Курсорчик);
КонецЕсли;

РасшФ.ОбработкаОжидания("СамоЗакрытие", 45000); //время в милисекундах - 1 минута = 60000

КонецПроцедуры

Смысл - при открытии программы выводится заставка с картинкой.Каждые 8 секунд картинка меняется. Первая картинка выбирается случайно (типа, получить случайное число). На форме есть таймер. Через 40 секунд обработка закрывается.

Так вот - иногда (не могу объяснить и поймать этот момент) - картинки перестают меняться, то есть висит одна картинка, через 40 секунд - заставка закрывается.

Где я накосячила?

PS Цой - жив!