hi ,
thank you for reply.

this is the code under, where i can use your code.

DO CASE 
   CASE NOT BETWEEN(thisform.pageframe1.page16.text1.value,1,2)
     
      =MESSAGEBOX("ÇÎÊíÇÑ ÎÇØÆ")
      thisform.Pageframe1.ActivePage = 16
      thisform.pageframe1.page16.text1.SetFocus

      thisform.pageframe1.page15.Enabled=.f.
   CASE thisform.pageframe1.page16.text1.value=2 && Case no. 2
     
      =MESSAGEBOX("ÓíÊã ÇáÇäÊÞÇá Çáì ÓÄÇá ÑÞã 10")
      thisform.Pageframe1.ActivePage = 7
      thisform.Pageframe1.Page7.Text1.SetFocus()
   OTHERWISE 
     
      thisform.Pageframe1.ActivePage = 15
      thisform.Pageframe1.Page15.Text1.SetFocus()
ENDCASE 

thanks.
m.qasem