When using a pageframe with more that 2 pages it seems that attempting to suppress page activate fails. Try the attached code and follow these steps:

1. click page 3
2. click messagebox
3. click page 3 again

notice that this time page three is shown but not active!!!

thanks

Glenn

LOCAL lof as form

lof = CREATEOBJECT('form')
lof.addobject('pf1','pf')
WITH lof.pf1
	.visible = .t.
	.top =0
	.left = 0
	.width = lof.Width
	.height = lof.Height
ENDWITH
lof.Show()
READ events

DEFINE CLASS pf as PageFrame

ADD object page1 as pg with ;
	caption = 'Page1'

ADD object page2 as pg with ;
	caption = 'Page2'

ADD object page3 as pg with ;
	caption = 'Page3'

FUNCTION destroy
CLEAR EVENTS
endfun

ENDDEFINE

DEFINE CLASS pg as Page

ADD OBJECT lbl as label WITH ;
	caption = 'Label Caption', ;
	autosize = .t., ;
	top = 100, ;
	left = 10, ;
	visible = .t.
	
function activate
IF LOWER(this.Name) = 'page3'
	NODEFAULT
	this.Parent.activepage = 2
	MESSAGEBOX('no way on 3')
ENDIF 
this.lbl.visible = .t.
this.lbl.caption = SYS(1272,this)
ENDDEFINE