>This is by design. Setting taborientation will reset the page height.

Well, idea is that to maintain constant PageHeight and PageWidth,
but it is not this way.
The result is that reaching the same state TabStretch, TabOrientation
from different runs, arrival to values of different Pageheigh,PageWidth.

In this way the pageframe a sequential machine becomes,
and it is easy to find a degenerate sequence.

A TabStretch, TabOrientation forward7backward invariant loop
it makes to degenerate the measures of the pageframe:

PUBLIC oform1

oform1=NEWOBJECT("form1")
oform1.Show
RETURN

DEFINE CLASS form1 AS form


	Height = 293
	Width = 266
	DoCreate = .T.
	AutoCenter = .T.
	Caption = "Form1"
	BackColor = RGB(0,0,255)
	AllowOutput = .F.
	Name = "Form1"


	ADD OBJECT pageframe1 AS pageframe WITH ;
		PageCount = 4, ;
		Top = 18, ;
		Left = 40, ;
		Width = 170, ;
		Height = 250 && ****** LOOK 

	PROCEDURE gotfocus
        CLEAR
   	WITH this.pageframe1 
   		FOR l=1 TO 20
   		* "forward sequence"
   			FOR j=0 TO 1
   				.TabStretch = j
		                FOR K=0 TO 3
				  .TabOrientation = k
				NEXT 
			NEXT

		* "backward sequence"
   			FOR j=1 TO 0 STEP -1
   				.TabStretch = j
		                FOR K=3 TO 0 STEP -1
				  .TabOrientation = k
				NEXT 
			NEXT
		? "TabStretch =",.TabStretch,"TabOrientation=";
			 ,.TabOrientation ,  .height,.width,.pageheight,.pagewidth			
		NEXT 
	ENDWITH		
ENDDEFINE