>*this simple demo  code simulates a form pageframe with tabOrientation=3 (right border)
>*the tabs are superstaded by commandbuttons here (can be images,labels, containers..)
>*can also add picture on commandbutton positionned with pictureposition property .
>*see the pageframe.init, bindevents code  and avoid some cosmetics....
>
>Publi yform
>yform=Newobject("ypgf")
>yform.Show
>Read Events
>Retu
>*
>Define Class ypgf As Form
>	Top = 0
>	Left = 0
>	Height = 600
>	Width = 750
>	Caption = "Pageframe with TabOrientation=3 & commandbuttons as TABS"
>	Name = "Form1"
>
>	Add Object pageframe1 As PageFrame With ;
>		ErasePage = .T., ;
>		PageCount = 4, ;
>		Top = 3, ;
>		Left = 21, ;
>		Width = 648, ;
>		Height = 461+50, ;
>		TabOrientation = 3, ;
>		Name = "Pageframe1", ;
>		Page1.Caption = "Page1", ;
>		Page1.BackColor = Rgb(128,255,0), ;
>		Page1.Name = "Page1", ;
>		Page2.Caption = "Page2", ;
>		Page2.Name = "Page2", ;
>		Page3.Caption = "Page3", ;
>		Page3.Name = "Page3", ;
>		Page4.Caption = "Page4", ;
>		Page4.Name = "Page4"
>
>	Procedure ybind
>	Lparameters nButton, nShift, nXCoord, nYCoord
>*--- aevent create an array laEvents
>	Aevents( myArray, 0)
>*--- reference the calling object
>	loObject = myArray[1]
>	oo="thisform.pageframe1.page"+  Right(Alltrim(loObject.Parent.Name) ,1)   &&if tabs<=9  otheriwse rweek this line
>	ss=oo+".setfocus"
>	&ss
>	ss=oo+".activate"
>	&ss
>
>*colorize yemporarly background of active page
>	oo=Eval(oo)
>	Thisform.pageframe1.Themes=.F.
>	oo.BackColor=Rgb(255*Rand(),255*Rand(),255*Rand())
>	Inke(0.5)
>	Thisform.pageframe1.Themes=.T.
>	Endproc
>
>	Procedure Init
>	Declare Integer Sleep In kernel32 Integer
>
>	For i=1 To This.pageframe1.PageCount
>		Bindevent(Eval("thisform.ylab"+Transform(i)),"mousedown",Thisform,"ybind")
>	Endfor
>	Endproc
>
>	Procedure Destroy
>	Clea Events
>	Endproc
>
>	Procedure pageframe1.Init
>	Thisform.AddProperty("oheight",47)
>	With This
>		.Tabs=.T.
>		xorientation=This.TabOrientation
>		xtop=This.Top
>		xwidth=This.Width/This.PageCount
>		xheight=This.Height/This.PageCount
>		.TabOrientation=3
>
>		For i=1 To .PageCount
>			.Pages(i).Caption=""
>			Thisform.AddObject("ylab"+Trans(i),"commandbutton")
>			With Eval("thisform.ylab"+Trans(i))
>				.Caption="Mypage"+Trans(i)
>				.WordWrap=.T.
>				.SpecialEffect=2
>				.mousePointer=15
>
>				.FontBold=.T.
>				.FontSize=9
>*!* .backColor=Rgb(255*Rand(),255*Rand(),255*Rand())  &&can uncomment
>				.Top= Int(i-1)*xheight
>				.Width=Thisform.oheight
>				.Height=xheight
>				.Left= Thisform.pageframe1.Width-27
>*******************
>*vertical caption style
>				m.oo=""
>				For j=1 To Len(.Caption)
>					m.oo=m.oo+Substr(.Caption,j,1)+Chr(13)
>				Endfor
>				.Caption=m.oo
>*******************
>				.Visible=.T.
>			Endwith
>		Endfor
>	Endwith
>	Endproc
>
>
>Enddefine
>*
>*-- EndDefine:ypgf
>