Очередная проблема с элементом Image

[tae1980]

На форме есть элемент Image, изображения в него выводиться командой

Image1.Picture = LoadPicture([ИдМежПлан_ДокументыФайлы].item(ДокументНомер, spРисункиУправление.Value))

где "[ИдМежПлан_ДокументыФайлы].item(ДокументНомер, spРисункиУправление.Value)" = берем ссылку на файл картинки вида "C:\путь\файл".
Все работает замечательно, пока пользователь не нажмет на элемент Image, вызвав событие Image1_Click. В нем эта картинка открываться на весь экран командой

CreateObject("WScript.Shell").Run """" & [ИдМежПлан_ДокументыФайлы].item(ДокументНомер, spРисункиУправление.Value) & """"

Все проходи, но после возвращения элемент Image перестает обновляться. То есть: обновили изображение\в Image нет изменений\выводим форму за экран\возвращаем\Image обновился. И так все время, до перезагрузки все формы.
Как с этим бороться?

[tae1980]

Опыты показали что Image перестает обновляться при любом щелчке на нем. Я комментирую все строки Image1_Click(), результат тот же.
Может быть есть иные объекта с похожим назначением?

[doober]

Ответ во вложении.
достал из кубышки.

[tae1980]

Сообщение от doober

Ответ во вложении.
достал из кубышки.

Спасибо! Очень помогло.