stop for TabStrip

[Skarobey]

как остановить процессы в форме?
юзается TabStrip и при переходе на другую вкладку надо чтоб прекратился весь процесс в предыдущей вкладке.
таймер-то остановить не проблема, а если уже будет выполняться комманд_клик?

[GM]

Типа так:

Код: Выделить всё

dim isstop as boolean
sub Command1_Click()
do while true
if isstop then
isstop = false
exit sub
end if
doevents
loop
end sub
Sub Command2_Click()
isstop = true
end sub