Adding Gadgets to Tabs ?

Local Win:TGADGET
Local Tab1:TGadget
Local TabL1:Tgadget[3]
Local Tab2:TGadget[3]
Local Tabl2:Tgadget[3,3]
Local Current:Int=0
Local Current2:Int=0

Win=CreateWindow("TEST",0,0,400,400)
Tab1=CreateTabber(10,10,ClientWidth(Win)-20,ClientHeight(Win)-20,Win,1)
AddGadgetItem (Tab1,"Tab1",GADGETITEM_NORMAL,0,"")
AddGadgetItem (Tab1,"Tab2",GADGETITEM_NORMAL,0,"")
AddGadgetItem (Tab1,"Tab3",GADGETITEM_NORMAL,0,"")

TabL1[0]=CreateTab(Tab1)
TabL1[1]=CreateTab(Tab1)
TabL1[2]=CreateTab(Tab1)

Tab2[0]=CreateTabber(10,10,ClientWidth(TabL1[0])-20,ClientHeight(TabL1[0])-20,TabL1[0],1)
AddGadgetItem (Tab2[0],"Tab1",GADGETITEM_NORMAL,0,"")
AddGadgetItem (Tab2[0],"Tab2",GADGETITEM_NORMAL,0,"")
AddGadgetItem (Tab2[0],"Tab3",GADGETITEM_NORMAL,0,"")
Tab2[1]=CreateTabber(10,10,ClientWidth(TabL1[1])-20,ClientHeight(TabL1[1])-20,TabL1[1],1)
AddGadgetItem (Tab2[1],"Tab1",GADGETITEM_NORMAL,0,"")
AddGadgetItem (Tab2[1],"Tab2",GADGETITEM_NORMAL,0,"")
AddGadgetItem (Tab2[1],"Tab3",GADGETITEM_NORMAL,0,"")
Tab2[2]=CreateTabber(10,10,ClientWidth(TabL1[2])-20,ClientHeight(TabL1[2])-20,TabL1[2],1)
AddGadgetItem (Tab2[2],"Tab1",GADGETITEM_NORMAL,0,"")
AddGadgetItem (Tab2[2],"Tab2",GADGETITEM_NORMAL,0,"")
AddGadgetItem (Tab2[2],"Tab3",GADGETITEM_NORMAL,0,"")

TabL2[0,0]=CreateTab(Tab2[0])
TabL2[0,1]=CreateTab(Tab2[0])
TabL2[0,2]=CreateTab(Tab2[0])
TabL2[1,0]=CreateTab(Tab2[1])
TabL2[1,1]=CreateTab(Tab2[1])
TabL2[1,2]=CreateTab(Tab2[1])
TabL2[2,0]=CreateTab(Tab2[2])
TabL2[2,1]=CreateTab(Tab2[2])
TabL2[2,2]=CreateTab(Tab2[2])


Tabl1[0].SetColor(20,50,70)
Tabl1[1].SetColor(120,50,70)
Tabl1[2].SetColor(20,50,170)
Tabl2[0,0].SetColor(240,50,70)
Tabl2[0,1].SetColor(140,50,70)
Tabl2[0,2].SetColor(120,50,170)
Tabl2[1,0].SetColor(290,50,70)
Tabl2[1,1].SetColor(220,50,70)
Tabl2[1,2].SetColor(170,50,170)
Tabl2[2,0].SetColor(290,80,70)
Tabl2[2,1].SetColor(220,20,70)
Tabl2[2,2].SetColor(170,140,170)

Function CreateTab:TGADGET(_Par:Tgadget)
	Local Temp:TGADGET=CreatePanel(5,5,ClientWidth(_Par)-10,ClientHeight(_Par)-10,_Par,PANEL_BORDER)
		HideGadget Temp
	Return Temp
End Function

ShowGadget Tabl1[0]
ShowGadget Tabl2[0,0]

While True
    Poll=PollEvent()
	
	
		If poll Then
		Print CurrentEvent.ToString()
		Select poll
		
	
			Case EVENT_WINDOWCLOSE
					End
					
			Case EVENT_GADGETACTION
				If EventSource()=Tab1
					HideGadget Tabl1[Current]
					Current=EventData()
					ShowGadget Tabl1[Current]
									
				ElseIf EventSource()=Tab2[0]
					HideGadget Tabl2[Current,Current2]
					Current2=EventData()
					ShowGadget Tabl2[Current,Current2]
			
				
				ElseIf EventSource()=Tab2[1]
					HideGadget Tabl2[Current,Current2]
					Current2=EventData()
					ShowGadget Tabl2[Current,Current2]
			
				
				ElseIf EventSource()=Tab2[2]
					HideGadget Tabl2[Current,Current2]
					Current2=EventData()
					ShowGadget Tabl2[Current,Current2]
				EndIf


				



		End Select
		EndIf
Wend

My attemp but im doing something wrong and ideas