THISFORM.LOCKSCREEN=.T. ADDOBJECT( shapes ) && mulitple shapes added THISFORM.LINE(X,Y) && multiple lines needed THISFORM.LOCKSCREEN=.F.In the above example either no lines are shown or they are shown but behind the shapes even though the shapes were drawn/added first.
THISFORM.LOCKSCREEN=.T. ADDOBJECT( shapes ) && mulitple shapes added THISFORM.LOCKSCREEN=.F. THISFORM.LOCKSCREEN=.T. THISFORM.LINE(X,Y) && multiple lines needed THISFORM.LOCKSCREEN=.F.In this example again no lines are drawn or they incorrectly appear behind the shapes.
THISFORM.LOCKSCREEN=.T. ADDOBJECT( shapes ) THISFORM.LOCKSCREEN=.F. INKEY(0.01) THISFORM.LOCKSCREEN=.T. THISFORM.LINE(X,Y) THISFORM.LOCKSCREEN=.F.Substituting DOEVENTS for the INKEY() does not work. Only using INKEY() (or probably some other wait state I assume).