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