HWND CreateWindowEx(
  DWORD dwExStyle,      // extended window style
  LPCTSTR lpClassName,  // registered class name
  LPCTSTR lpWindowName, // window name
  DWORD dwStyle,        // window style
  int x,                // horizontal position of window
  int y,                // vertical position of window
  int nWidth,           // window width
  int nHeight,          // window height
  HWND hWndParent,      // handle to parent or owner window
  HMENU hMenu,          // menu handle or child identifier
  HINSTANCE hInstance,  // handle to application instance
  LPVOID lpParam        // window-creation data
);
 

 
DECLARE INTEGER CreateWindowEx IN user32;
    INTEGER dwExStyle,;
    STRING lpClassName,;
    STRING lpWindowName,;
    INTEGER dwStyle,;
    INTEGER x,;
    INTEGER y,;
    INTEGER nWidth,;
    INTEGER nHeight,;
    INTEGER hWndParent,;
    INTEGER hMenu,;
    INTEGER hInstance,;
    INTEGER lpParam
 
 

 
lnStyle = WS_CHILD + WS_BORDER + HDS_BUTTONS
lnStyleX = 0
lnId = VAL( SYS(3) )
lcWindowName = "hdr" + SYS(3)
hApp = GetWindowLong (_screen.HWnd, GWL_HINSTANCE)
 
hWindow = CreateWindow(lnStyleX, "SysHeader32",;
    lcWindowName, lnStyle, 0,0,0,0,;
    ThisForm.Hwnd, lnId, hApp, 0 )