Observed:
Every mouse's button click on a pageframe generate two MouseUp events.

run this:
- Click/righclick/Middleclick over the pageframe tab

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)
	AllowOutput = .F.
	Name = "Form1"


	ADD OBJECT pageframe1 AS pageframe WITH ;
		ErasePage = .T., ;
		PageCount = 1, ;
		ActivePage = 1, ;
		Top = 10, ;
		Left = 10, ;
		Width = 334, ;
		Height = 196, ;
		Name = "Pageframe1", ;
		Page1.Caption = "Page1", ;
		Page1.Name = "Page1"


	PROCEDURE Activate
		CLEAR
		CLEAR TYPEAHEAD
		MOUSE CLICK AT 12,12 PIXELS LEFT WINDOWS (WONTOP())
	ENDPROC


	PROCEDURE pageframe1.MouseUp
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		? PROGRAM(),nButton
	ENDPROC

ENDDEFINE