#define GWL_HINSTANCE -6
#define WS_VISIBLE 268435456
#define WS_CHILD 1073741824

#define TCIF_TEXT 1
#define TCM_INSERTITEM 4871
#define TCM_GETCURSEL 4875

external(INT, "CreateWindow", "CreateWindowExA", "User32.dll");
external(INT, "GetWindowLong", "GetWindowLongA", "User32.dll" );

int histance;
int tab, current_tab=0;
char text[99];
int tagTCITEMA[7]={TCIF_TEXT, 0, 0, address(#text[0]), size(#text[0]), 0, 0}

createdialog(0);
showdialog(0, "Dialog", 200, 200, 400, 300, 1, 1);

enabletimer(0);
loop()sleep(100);


function getmessage(0, WM_CREATE)
{
histance=GetWindowLong(gethwnd(0), GWL_HINSTANCE);
tab=CreateWindow(0, "SysTabControl32", "", WS_VISIBLE | WS_CHILD, 10, 10, 300, 150, gethwnd(0), 0, histance, 0, 0);

strcpy(#text[0], "Вкладка0");
sendmessage(TCM_INSERTITEM, 0, address(#tagTCITEMA[0]), formatiw(tab));

strcpy(#text[0], "Вкладка1");
sendmessage(TCM_INSERTITEM, 1, address(#tagTCITEMA[0]), formatiw(tab));

strcpy(#text[0], "Вкладка2");
sendmessage(TCM_INSERTITEM, 2, address(#tagTCITEMA[0]), formatiw(tab));
}

CREATE_TIMER(0, 100)
{
current_tab=sendmessage(TCM_GETCURSEL, 0, 0, formatiw(tab));
textbkcolor(255, 65280);
textout(0, 300, 300, "Выбрана вкладка: "+format(current_tab), 0);
}