hi,
thank you for reply,
i try with this code under, but i have more than 15 pages.

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.   && this what i do to disible
   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