Дорое утро!
Использую нижеприведенный код в программе. Хотелось бы вместо сообщения WAIT вставить свою форму, показывающая допустим процент выполнения индексации. Как запустить эту форму и затем ее закрыть после выполнения этих действий?


WAIT 'Иäåò èíäåêñàöèÿ áàçы äàííûõ!' NOWAIT WIND

ON ERROR DO errhand WITH ERROR( )

alzan='sprav'
USE sprav.dbf excl
IF FLOCK()
pack
reindex
ENDIF

USE


WAIT CLEAR
ON ERROR
RETURN

*** Error ***

PROCEDURE errhand
PARAMETER errnum
=MESSAGEBOX('Ôàéë '+alzan+' çàíÿò äðóãèì ïîëüçîâàòåëåì!'+CHR(13)+'Èíäåêñàöèÿ ýòîãî ôàéëà íå ïðîèçîøëà.', 16, 'Îøèáêà')
RETURN