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() ENDCASEthanks.