something like this
m.ok=.f.
For each oform in _vfp.Forms
m.ok = m.ok or Iif(oform.windowtype=1,.t.,.f.)
EndFor
Return m.ok
MVP-2006-2011, PHD in Math and Physics ,
host of
www.foxclub.ru,
VFP lector at Interface and Microinform companies
Head science researcher of VNIIA Rosatom.