<snip>

>Jos,
>
>I have found Dragan's answer to shed some further light
>
>What if (in pseudo code 1) you put the draw() as indicated below ?
>
>

>>>THISFORM.LOCKSCREEN=.T.
>>>ADDOBJECT( shapes )  &&  mulitple shapes added
>
>thisform.Draw()
>
>>>THISFORM.LINE(X,Y)   &&  multiple lines needed
>>>THISFORM.LOCKSCREEN=.F.
>

This is what I tried but to no avail. I can work with pseudo code 3, it's not a problem as such.