Hex 00Доброго времени суток!
Как вариант, организовать многопоточность (правда под VFP 9.0 почему-то приоритет потока всегда равен приоритету процесса его запустившего даже если его насильно менять, толи потому что без SP, то ли еще что-нибудь, история об этом умалчивает) можно так:


Имена функций (главной функции выполняемой в потоке ( и функций уведомителей могут быть произвольными
,длинной не более 16 байт. Имя массива передаваемого по ссылке в качетве параметра может быть произвольным.
Главное не ошибайтесь в наименовании описания функций при описании и присвоении этого имени в массив.
Удачи.
P.S: По уму настоящую многопоточность в VFP оргнизовать можно используя COM EXE, но это отдельная и долгая тема.

И кстати, почему еще никто не догадался написать контрол OLE Automation обеспечивающий многопоточность в VFP. Странно. Мелкомягкие , зная проблему погли бы и подъсуетиться.

Внимательн перчитав код, могу предположить следущее:
Чтоб запаралелить 2 цикла нужно сделать примерно такое:
Public giSUM1 As Integer
STORE 0 TO giSUM1

PUBLIC ARRAY Prm1(5) && Масиив для параметров
PUBLIC ARRAY Prm2(5) && Масиив для параметров

Prm1(1) = "TreadFn1()" && Процедура которая выполнится в потоке (всегда 1)
Prm1(2) = "TreadStart1()" && Процедура уведомления начала запуска потока (всегда 2)
Prm1(3) = "TreadStop1()" && Процедура уведомления окончания выполнения потока (всегда 3)
Prm1(4) = Sys(3095,_vfp) && IDispatch VFP (всегда 4)
Prm1(5) = THREAD_PRIORITY_IDLE && Приоритет потока всегда (5)

Prm2(1) = "TreadFn2()" && Процедура которая выполнится в потоке (всегда 1)
Prm2(2) = "TreadStart2()" && Процедура уведомления начала запуска потока (всегда 2)
Prm2(3) = "TreadStop2()" && Процедура уведомления окончания выполнения потока (всегда 3)
Prm2(4) = Sys(3095,_vfp) && IDispatch VFP (всегда 4)
Prm2(5) = THREAD_PRIORITY_IDLE && Приоритет потока всегда (5)


? THREADCMD(@Prm1)

Procedure TreadFn1()
LOCAL I
FOR I = 1 TO 1000
GISUM1 = GISUM1+I
? GISUM1
DOEVENTS
ENDFOR
? GISUM1
Endproc

Procedure TreadStart1()
* Тут ваш код перед обработкой потока
? "Начало вычислений"

Endproc

Procedure TreadStop1()
* Тут ваш код после отработки потока
? "Окончание вычислений", ' ', giSUM1
Endproc
************************************
Procedure TreadFn2()
LOCAL I
FOR I = 1 TO 1000
GISUM1 = GISUM1+I
? GISUM1
DOEVENTS
ENDFOR
? GISUM1
Endproc

Procedure TreadStart2()
* Тут ваш код перед обработкой потока
? "Начало вычислений"

Endproc

Procedure TreadStop2()
* Тут ваш код после отработки потока
? "Окончание вычислений", ' ', giSUM1
Endproc
Я правильно вразумел????

[/src]