Using buttons in place of the tabs to garner more control and customization ability is an interesting approach... here's a quick example for doing this that will allow the developer to set a tab to invisible so to speak (I created this on Windows XP and didn't feel like going through the extra trouble to make it look right if themes are unavailable - it'll probably give the general idea and certainly could be spruced up some). Cut-N-Paste the code below into a prg in VFP and execute it.

PUBLIC oForm
oForm = CREATEOBJECT("clsForm")
oForm.Show()


DEFINE CLASS clsForm AS form

	Top = 0
	Left = 0
	Height = 250
	Width = 429
	DoCreate = .T.
	Caption = "Form"
	Name = "Form1"


	ADD OBJECT shape1 AS shape WITH ;
		Top = 47, ;
		Left = 13, ;
		Height = 168, ;
		Width = 407, ;
		BackStyle = 0, ;
		SpecialEffect = 1, ;
		Name = "Shape1"


	ADD OBJECT command1 AS commandbutton WITH ;
		Top = 24, ;
		Left = 12, ;
		Height = 27, ;
		Width = 84, ;
		Caption = "Page1", ;
		Name = "Command1"


	ADD OBJECT command2 AS commandbutton WITH ;
		Top = 24, ;
		Left = 96, ;
		Height = 27, ;
		Width = 84, ;
		Caption = "Page2", ;
		Name = "Command2"


	ADD OBJECT command3 AS commandbutton WITH ;
		Top = 24, ;
		Left = 180, ;
		Height = 27, ;
		Width = 84, ;
		Caption = "Page3", ;
		Name = "Command3"


	ADD OBJECT pageframe1 AS clsPageFrame WITH ;
		ErasePage = .T., ;
		PageCount = 0, ;
		BorderWidth = 0, ;
		Top = 46, ;
		Left = 12, ;
		Width = 408, ;
		Height = 169, ;
		SpecialEffect = 2, ;
		Tabs = .F., ;
		Name = "Pageframe1"
		
	ADD OBJECT check1 AS checkbox WITH ;
		Top = 220, ;
		Left = 16, ;
		Height = 17, ;
		Width = 94, ;
		AutoSize = .F., ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "Page2 Visible", ;
		Name = "Check1", ;
		Value = .T.

	PROCEDURE command1.Click
		this.Parent.pageframe1.ActivePage = 1
	ENDPROC

	PROCEDURE command2.Click
		this.Parent.pageframe1.ActivePage = 2
	ENDPROC

	PROCEDURE command3.Click
		this.Parent.pageframe1.ActivePage = 3
	ENDPROC

	PROCEDURE check1.InteractiveChange
		this.Parent.command2.Visible = this.value
		this.Parent.PageFrame1.Page2.enabled = this.value
	ENDPROC

ENDDEFINE

DEFINE CLASS clsPageFrame as PageFrame
	ADD OBJECT page1 AS clspage1
	ADD OBJECT page2 AS clspage2
	ADD OBJECT page3 AS clspage3
ENDDEFINE


DEFINE CLASS clsPage1 as Page
	ADD OBJECT text1 AS textbox WITH ;
		Height = 23, ;
		Left = 24, ;
		Top = 14, ;
		Width = 100, ;
		Name = "Text1"

	ADD OBJECT optiongroup1 AS optiongroup WITH ;
		ButtonCount = 2, ;
		BackStyle = 0, ;
		Value = 1, ;
		Height = 46, ;
		Left = 24, ;
		Top = 50, ;
		Width = 71, ;
		Name = "Optiongroup1", ;
		Option1.BackStyle = 0, ;
		Option1.Caption = "Option1", ;
		Option1.Value = 1, ;
		Option1.Height = 17, ;
		Option1.Left = 5, ;
		Option1.Top = 5, ;
		Option1.Width = 61, ;
		Option1.Name = "Option1", ;
		Option2.BackStyle = 0, ;
		Option2.Caption = "Option2", ;
		Option2.Height = 17, ;
		Option2.Left = 5, ;
		Option2.Top = 24, ;
		Option2.Width = 61, ;
		Option2.Name = "Option2"
ENDDEFINE

DEFINE CLASS clsPage2 as Page
	ADD OBJECT command1 AS commandbutton WITH ;
		Top = 134, ;
		Left = 312, ;
		Height = 27, ;
		Width = 84, ;
		Caption = "Command1", ;
		Name = "Command1"


	ADD OBJECT edit1 AS editbox WITH ;
		Height = 108, ;
		Left = 12, ;
		Top = 14, ;
		Width = 384, ;
		Name = "Edit1"

ENDDEFINE

DEFINE CLASS clsPage3 as Page
	ADD OBJECT check1 AS checkbox WITH ;
		Top = 50, ;
		Left = 12, ;
		Height = 17, ;
		Width = 60, ;
		Alignment = 0, ;
		Caption = "Check1", ;
		Name = "Check1"


	ADD OBJECT check2 AS checkbox WITH ;
		Top = 50, ;
		Left = 84, ;
		Height = 17, ;
		Width = 60, ;
		Alignment = 0, ;
		Caption = "Check2", ;
		Name = "Check2"


	ADD OBJECT combo1 AS combobox WITH ;
		Height = 24, ;
		Left = 12, ;
		Top = 14, ;
		Width = 228, ;
		Name = "Combo1"
ENDDEFINE