Hi Claudio;
>In a valid of on editbox in the form1 i have:
>if condition
> opc=mymesaje("error")
> if opc = 1
> .
> .
> .
> endif
>endif
>
procedure valid
if condition
return .f.
endif
endproc
procedure errormessage
opc=messagebox("error")
if opc = 1
.
.
.
endif
endproc
Regards
Claudio
"Now to him who is able to do immeasurably more than all we ask or imagine, according to his power that is at work within us, Ephesians 3:20