if type('Application.Forms.Count') = 'N'
   =messagebox(Application.Forms.Count)
    if Application.Forms.Count >=1
   =messagebox(Application.Forms[1].Name)
endif
endif