>Hi Folks
>
>>>Is that true, can you tell me what's the way to do that.
>
>Here's a neat class that does it with no code in an event, just a couple set properties:
>
>

**************************************************
>*-- Class:        sidetabs (c:\vfptest\mgh.vcx)
>*-- ParentClass:  container
>*-- BaseClass:    container
>*-- Time Stamp:   11/10/99 09:08:05 PM
>*
>DEFINE CLASS sidetabs AS container
>
>
>	Width = 312
>	Height = 169
>	Name = "Container1"
>
>
>	ADD OBJECT pageframe1 AS pageframe WITH ;
>		ErasePage = .T., ;
>		PageCount = 5, ;
>		Top = 0, ;
>		Left = 0, ;
>		Width = 241, ;
>		Height = 169, ;
>		Tabs = .F., ;
>		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", ;
>		Page5.Caption = "Page5", ;
>		Page5.Name = "Page5"
>
>
>	ADD OBJECT sidetabs.pageframe1.page1.label1 AS label WITH ;
>		Caption = "Label1", ;
>		Height = 17, ;
>		Left = 8, ;
>		Top = 8, ;
>		Width = 40, ;
>		Name = "Label1"
>
>
>	ADD OBJECT sidetabs.pageframe1.page2.label1 AS label WITH ;
>		Caption = "Label2", ;
>		Height = 17, ;
>		Left = 8, ;
>		Top = 8, ;
>		Width = 40, ;
>		Name = "Label1"
>
>
>	ADD OBJECT sidetabs.pageframe1.page3.label1 AS label WITH ;
>		Caption = "Label3", ;
>		Height = 17, ;
>		Left = 8, ;
>		Top = 8, ;
>		Width = 40, ;
>		Name = "Label1"
>
>
>	ADD OBJECT sidetabs.pageframe1.page4.label1 AS label WITH ;
>		Caption = "Label4", ;
>		Height = 17, ;
>		Left = 8, ;
>		Top = 8, ;
>		Width = 40, ;
>		Name = "Label1"
>
>
>	ADD OBJECT sidetabs.pageframe1.page5.label1 AS label WITH ;
>		Caption = "Label5", ;
>		Height = 17, ;
>		Left = 8, ;
>		Top = 8, ;
>		Width = 40, ;
>		Name = "Label1"
>
>
>	ADD OBJECT optiongroup1 AS optiongroup WITH ;
>		ButtonCount = 5, ;
>		Value = 1, ;
>		ControlSource = "thisform.pageframe1.activepage", ;
>		Height = 168, ;
>		Left = 240, ;
>		Top = 0, ;
>		Width = 72, ;
>		Name = "Optiongroup1", ;
>		Option1.Caption = "Option1", ;
>		Option1.Value = 1, ;
>		Option1.Height = 17, ;
>		Option1.Left = 5, ;
>		Option1.Style = 1, ;
>		Option1.Top = 5, ;
>		Option1.Width = 61, ;
>		Option1.Name = "Option1", ;
>		Option2.Caption = "Option2", ;
>		Option2.Height = 17, ;
>		Option2.Left = 5, ;
>		Option2.Style = 1, ;
>		Option2.Top = 24, ;
>		Option2.Width = 61, ;
>		Option2.Name = "Option2", ;
>		Option3.Caption = "Option3", ;
>		Option3.Height = 17, ;
>		Option3.Left = 5, ;
>		Option3.Style = 1, ;
>		Option3.Top = 43, ;
>		Option3.Width = 61, ;
>		Option3.Name = "Option3", ;
>		Option4.Caption = "Option4", ;
>		Option4.Height = 17, ;
>		Option4.Left = 5, ;
>		Option4.Style = 1, ;
>		Option4.Top = 62, ;
>		Option4.Width = 61, ;
>		Option4.Name = "Option4", ;
>		Option5.Caption = "Option5", ;
>		Option5.Height = 17, ;
>		Option5.Left = 5, ;
>		Option5.Style = 1, ;
>		Option5.Top = 81, ;
>		Option5.Width = 61, ;
>		Option5.Name = "Option5"
>
>
>ENDDEFINE
>*
>*-- EndDefine: sidetabs
>**************************************************
>

Ok, Mike. But you should admit that it was invented somewhere ... before .... On UT?
:-)
Good ideas, they used to come to many heads, simultaneously.