Hi Eric;

Try it !!

procedure valid
* creat thisform.lnanswer
*
If Empty(This.value)
   thisform.lnanswer=messagebox("First Name field cannot be blank",1,"Text Entry Error.")
Endif
Thisform.Refresh
*Return 0  && <- the problem was here
return
endproc
procedure refresh
   If thisform.lnanswer = 2 && If the Cancel..
      Tablerevert()
      Thisform.flipenable
   Endif
endproc

>Can someone please tell me why in the code below the MessageBox gets caught in a continuous loop. This code is being called in the Valid event of a TextBox. Surely, I'm missing something.
******************