DO CASE CASE BETWEEN(thisform.pageframe1.page16.text1.value,1,2) =MESSAGEBOX("Hit 1") thisform.Pageframe1.ActivePage = 16 thisform.pageframe1.page16.text1.SetFocus CASE thisform.pageframe1.page16.text1.value=2 && Case no. 2 =MESSAGEBOX("Hit 2") thisform.Pageframe1.ActivePage = 10 thisform.Pageframe1.Page10.Text1.SetFocus() OTHERWISE =MESSAGEBOX("Hit 3") thisform.Pageframe1.ActivePage = 15 thisform.Pageframe1.Page15.Text1.SetFocus() ENDCASEBut there is something wrong with your logic, I guess you will see it easier now.
>IF BETWEEN(thisform.pageframe1.page16.text1.value,1,2) > =MESSAGEBOX("ÇÎÊíÇÑ ÎÇØÆ") > thisform.Pageframe1.ActivePage = 16 > thisform.pageframe1.page16.text1.SetFocus >else > if thisform.pageframe1.page16.text1.value=2 > =MESSAGEBOX("ÓíÊã ÇáÇäÊÞÇá Çáì ÓÄÇá ÑÞã 10") > thisform.Pageframe1.ActivePage = 10 > thisform.Pageframe1.Page10.Text1.SetFocus() > else > thisform.Pageframe1.ActivePage = 15 > thisform.Pageframe1.Page15.Text1.SetFocus() > endif > endif >>thanks.