&&&range form 1 to 9 IF THISFORM.TEXT4.Value=9 and THISFORM.TEXT5.Value>"" THISFORM.command1.visible=.T. ELSE THISFORM.command1.visible=.F. =MESSAGEBOX("íÌÈ ÇÏÎÇá ÇáÑÓÇáÉ") && this message thisform.text5.setfocus IF THISFORM.TEXT4.Value>0 and THISFORM.TEXT4.Value<9 THISFORM.command1.visible=.t. ELSE =MESSAGEBOX("íÌÈ ÇÏÎÇá ÇáÇÌÇÈÉ") THISFORM.command1.visible=.f. ENDIF endifthanks