&&&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 
         
          
    endif