>There is a textbox. The interactivechange procedure would like below:
>

>* txtSearch.InteractiveChange
>With ThisForm
>  .lockScreen = .t.
>  .....
>  .OtherObject.otherAction()
>  .OtherObject1.otherAction1()
>  * .List1.Value = .List1.List(.List1.ListCount) && Example
>  * .List1.Value = SeekValue
>  .....
>  .lockScreen = .f.
>EndWith
>

>
>If user wait all the subrountine Actions to finish first,
>it would be fine. It works as wish.
>The problem is if the user key in too fast!
>The above procedure will recall at once and cause problem
>as the previous call is not completed!
>
>In above cases, the list box do not finish the location but
>the above code already recall!
>Even I add the code at lockScreen Statement .Enabled = .f.
>
>Actually, the problem is not disallow the program to fork into
>multi-tasking on external function call for some key reasons.
>
>Of cos, Maybe cannot be solved as Visual is like XView.
>Take Action according to events and cannot force to do linear task.
>But it will become problem if the coding are not sure to complete
>and take other events to work!
>
>Similar situation is the user exit too fast but the saving task not
>finished yet!

I'm not sure if this will work, but what if you change the thisform.mousepointer to 11 when you set lockscreen = .t., and change it back to 0 when you set lockscreen = .f. ?