Ok, I've isolated a smaller chunk of the code. It's to do with Tabbers or panels, really.
MainTabber = CreateTabber(5, 55, ClientWidth(MainWindow) - 10, ClientHeight(MainWindow) - 60, MainWindow)
AddGadgetItem(MainTabber, "World")
AddGadgetItem(MainTabber, "Continent")
AddGadgetItem(MainTabber, "Int Region")
AddGadgetItem(MainTabber, "Nation")
AddGadgetItem(MainTabber, "Region")
AddGadgetItem(MainTabber, "City")
AddGadgetItem(MainTabber, "Stadium")
AddGadgetItem(MainTabber, "Club")
AddGadgetItem(MainTabber, "People")
AddGadgetItem(MainTabber, "Competition")
AddGadgetItem(MainTabber, "League")
AddGadgetItem(MainTabber, "Game")
AddGadgetItem(MainTabber, "Defunct")
For Local x = 0 To 12
MainTabberPanel[x] = CreateDataPanel(MainTabber)
Next
ShowGadget MainTabberPanel[0]
MainTabberCurrent = MainTabberPanel[0]
GameTabber = CreateTabber(5, 5, ClientWidth(MainTabberPanel[11]) - 10, ClientHeight(MainTabberPanel[11]) - 10, MainTabberPanel[11])
AddGadgetItem(GameTabber, "First Names")
AddGadgetItem(GameTabber, "Surnames")
AddGadgetItem(GameTabber, "Language")
AddGadgetItem(GameTabber, "Currency")
AddGadgetItem(GameTabber, "Injury")
For Local x = 0 To 4
GameTabberPanel[x] = CreateDataPanel(GameTabber)
Next
ShowGadget GameTabberPanel[0]
GameTabberCurrent = GameTabberPanel[0]
DefunctTabber = CreateTabber(5, 5, ClientWidth(MainTabberPanel[12]) - 10, ClientHeight(MainTabberPanel[12]) - 10, MainTabberPanel[12])
AddGadgetItem(DefunctTabber, "Nation")
AddGadgetItem(DefunctTabber, "Club")
AddGadgetItem(DefunctTabber, "Person")
AddGadgetItem(DefunctTabber, "Competition")
For Local x = 0 To 3
DefunctTabberPanel[x] = CreateDataPanel(DefunctTabber)
Next
ShowGadget DefunctTabberPanel[0]
DefunctTabberCurrent = DefunctTabberPanel[0]
ClubTabber = CreateTabber(210, 5, ClientWidth(MainTabberPanel[7]) - 215, ClientHeight(MainTabberPanel[7]) - 10, MainTabberPanel[7])
AddGadgetItem(ClubTabber, "Details")
AddGadgetItem(ClubTabber, "Teams")
AddGadgetItem(ClubTabber, "Staff")
AddGadgetItem(ClubTabber, "Players")
For Local x = 0 To 3
ClubTabberPanel[x] = CreateDataPanel(ClubTabber)
Next
ShowGadget ClubTabberPanel[0]
ClubTabberCurrent = ClubTabberPanel[0]
PersonTabber = CreateTabber(210, 5, ClientWidth(MainTabberPanel[8]) - 215, ClientHeight(MainTabberPanel[8]) - 10, MainTabberPanel[8])
AddGadgetItem(PersonTabber, "Person")
AddGadgetItem(PersonTabber, "Player")
AddGadgetItem(PersonTabber, "Technical")
AddGadgetItem(PersonTabber, "Mental + Physical")
AddGadgetItem(PersonTabber, "Coach")
AddGadgetItem(PersonTabber, "Referee")
AddGadgetItem(PersonTabber, "Physio")
AddGadgetItem(PersonTabber, "Businessman")
For Local x = 0 To 7
PersonTabberPanel[x] = CreateDataPanel(PersonTabber)
Next
ShowGadget PersonTabberPanel[0]
PersonTabberCurrent = PersonTabberPanel[0]
Function CreateDataPanel:TGadget(tabber:TGadget)
Local panel:TGadget
panel=CreatePanel(0,0,ClientWidth(tabber),ClientHeight(tabber),tabber)
SetGadgetLayout panel,1,1,1,1
HideGadget panel
Return panel
End Function