Observed:
with
- TabStretch = 0
- TabStyle = 1

the pageframe is not usable.

Repro:

PUBLIC oform1

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

DEFINE CLASS form1 AS form


	Height = 239
	Width = 362
	DoCreate = .T.
	AutoCenter = .T.
	Caption = "Form1"
	BackColor = RGB(0,0,255)
	Name = "Form1"


	ADD OBJECT pageframe1 AS pageframe WITH ;
		ErasePage = .T., ;
		PageCount = 4, ;
		TabStretch = 0, ;
		TabStyle = 1, ;
		ActivePage = 1, ;
		Top = 16, ;
		Left = 38, ;
		Width = 170, ;
		Height = 223, ;
		Name = "Pageframe1", ;
		Page1.Caption = "Page1", ;
		Page1.Name = "Page1", ;
		Page2.Caption = "Page2", ;
		Page2.Name = "Page2", ;
		Page3.Caption = "Page3", ;
		Page3.Name = "Page3", ;
		Page4.Caption = "Page4", ;
		Page4.Name = "Page4"


	PROCEDURE Activate
		this.pageframe1.page4.setfocus
	ENDPROC


ENDDEFINE