; Parent Window
Local Desk_W = ClientWidth(Desktop()), Desk_H = ClientHeight(Desktop())
Parent = CreateWindow("B+ Window Framework by Eikon", Desk_W / 2 - 320, Desk_H / 2 - 240, 640, 480, 0, 1)

; Menu
Const cnt_EXIT = 1

Menu = WindowMenu(Parent) 
File = CreateMenu("&File", 0, Menu)
CreateMenu "E&xit", cnt_EXIT, File
UpdateWindowMenu Parent

Tabber = CreateTabber(4, 0, 626, 432, Parent)
InsertGadgetItem Tabber, 0, "Tab 1"
InsertGadgetItem Tabber, 1, "Tab 2"

Panel1 = CreatePanel(0, 0, 600, 400, Tabber)
Dim textbox(9)
For i = 0 To 9
	textbox(i) = CreateTextField(5, (i + 1) * 30, 90, 24, Panel1)
	SetGadgetText textbox(i), "Tab 1"
Next

Panel2 = CreatePanel(0, 0, 600, 400, Tabber)
Dim textbox2(9)
For i = 0 To 9
	textbox2(i) = CreateTextField(5, (i + 1) * 30, 90, 24, Panel2)
	SetGadgetText textbox2(i), "Tab 2"
Next
HideGadget Panel2

AutoSuspend 1
Repeat

Select WaitEvent()	
	Case $803: End ; X Out

	Case $401
	If EventSource() = Tabber Then
		If EventData() = 0 Then 
			HideGadget Panel2: ShowGadget Panel1
		Else
 			HideGadget Panel1: ShowGadget Panel2
		EndIf
	EndIf
		
End Select
	
Forever