function getmessage(2, WM_CLOSE)
{
EnableWindow(gethwnd(0), 1);
ShowWindow(gethwnd(2), SW_HIDE);
}

function getmessage(2, WM_CREATE) {
Style1 = GetWindowLong(gethwnd(2), -16);
SetWindowLong(gethwnd(2), -16, Style1 + WS_MINIMIZEBOX);



}

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



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

int histance, progress_bar1, progress_bar2, progress_bar3, progress_bar4, progress_bar5;

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

loop()
{
sleep(10);
}

function getmessage(0, WM_CREATE)
{
histance=GetWindowLong(gethwnd(0), GWL_HINSTANCE);
progress_bar1=CreateWindow(0, "msctls_trackbar32", "", WS_VISIBLE | WS_CHILD, 10, 10, 310, 25, gethwnd(0), 0, histance, 0, 0);//ползунок
progress_bar2=CreateWindow(0, "msctls_updown32", "", WS_VISIBLE | WS_CHILD, 10, 40, 310, 25, gethwnd(0), 0, histance, 0, 0);//кнопка вниз в вверх для эдита
progress_bar3=CreateWindow(0, "msctls_hotkey32", "", WS_VISIBLE | WS_CHILD, 10, 70, 100, 25, gethwnd(0), 0, histance, 0, 0);//ловит нажатые кнопки
progress_bar4=CreateWindow(0, "SysTabControl32", "", WS_VISIBLE | WS_CHILD, 10, 100, 310, 100, gethwnd(0), 0, histance, 0, 0);//другой тип Таба(не изучено)

progress_bar5=CreateWindow(0, "SysTreeView32", "", WS_VISIBLE | WS_CHILD, 10, 250, 310, 100, gethwnd(0), 0, histance, 0, 0);//ListView(тоже самое что и Listbox, но только с иконками и изображениями, столбцами и строками(не изучено)