>I would like to display a messagebox as the user clicks any field or any place of my form
>
>Is it possible without have to write the code in each field ?
>
>= messagebox ("This form is readonly, click edit to unlock it")
>
>Moises

for each oControl in thisform.Controls
   if upper(oControl.BaseClass) = 'TEXTBOX'
      =bindevent(eval('Thisform.'+oControl.Name) ,"Click",ThisForm,"myClick")
   endif
endfor