请问如何让多个顶层表单，指定一个表单在最前面，我用了这个方法，超过3个时有一个不显示不知什么原因
For lnFor=1 to _VFP.Forms.Count
    if  _VFP.Forms(lnFor).name='【001】'
        pform=lnFor
    ENDIF
ENDFOR

For lnFor=1 to _VFP.Forms.Count
    if  _VFP.Forms(lnFor).name='【002】'
        pform2=lnFor
    ENDIF
ENDFOR

For lnFor=1 to _VFP.Forms.Count
    if  _VFP.Forms(lnFor).name='【003】'
        pform3=lnFor
    ENDIF
ENDFOR

For lnFor=1 to _VFP.Forms.Count
    if  _VFP.Forms(lnFor).name='【004】'
        pform4=lnFor
    ENDIF
ENDFOR


DO case
   CASE _VFP.Forms(pform).AlwaysOnTop=.t.
          _VFP.Forms(pform).AlwaysOnTop=.f.
          _VFP.Forms(pform2).AlwaysOnTop=.t.
          _VFP.Forms(pform3).AlwaysOnTop=.f.
          _VFP.Forms(pform4).AlwaysOnTop=.t.
          _VFP.Forms(pform).AlwaysOnBottom=.t.
          _VFP.Forms(pform2).AlwaysOnBottom=.f.
          _VFP.Forms(pform3).AlwaysOnBottom=.t.
          _VFP.Forms(pform4).AlwaysOnBottom=.t.           
   CASE _VFP.Forms(pform2).AlwaysOnTop=.t.
          _VFP.Forms(pform).AlwaysOnTop=.f.
          _VFP.Forms(pform2).AlwaysOnTop=.f.
          _VFP.Forms(pform3).AlwaysOnTop=.t.
          _VFP.Forms(pform4).AlwaysOnTop=.f.  
          _VFP.Forms(pform).AlwaysOnBottom=.t.
          _VFP.Forms(pform2).AlwaysOnBottom=.t.
          _VFP.Forms(pform3).AlwaysOnBottom=.f.
          _VFP.Forms(pform4).AlwaysOnBottom=.t.           
   CASE _VFP.Forms(pform3).AlwaysOnTop=.t.
          _VFP.Forms(pform).AlwaysOnTop=.f.
          _VFP.Forms(pform2).AlwaysOnTop=.f.
          _VFP.Forms(pform3).AlwaysOnTop=.f.
          _VFP.Forms(pform4).AlwaysOnTop=.t.  
          _VFP.Forms(pform).AlwaysOnBottom=.t.
          _VFP.Forms(pform2).AlwaysOnBottom=.t.
          _VFP.Forms(pform3).AlwaysOnBottom=.t.
          _VFP.Forms(pform4).AlwaysOnBottom=.f.           
   CASE _VFP.Forms(pform4).AlwaysOnTop=.t.
          _VFP.Forms(pform).AlwaysOnTop=.t.
          _VFP.Forms(pform2).AlwaysOnTop=.f.
          _VFP.Forms(pform3).AlwaysOnTop=.f.
          _VFP.Forms(pform4).AlwaysOnTop=.f.  
          _VFP.Forms(pform).AlwaysOnBottom=.f.
          _VFP.Forms(pform2).AlwaysOnBottom=.t.
          _VFP.Forms(pform3).AlwaysOnBottom=.t.
          _VFP.Forms(pform4).AlwaysOnBottom=.t.           
ENDCASE