procedure SelectTab(aTabIndex:integer);
==== Parameters ====
* **//aTabIndex//**
* //type:// integer
* //functions:// Index of activated tab
===== Notes =====
* If aTabIndex less than 0, it will be activated random tab.
===== Examples =====
-//Activate first tab
SelectTab(0);
-//Activate random tab
SelectTab(-1);