// à coder en tant que Local External Functions
Function long GetWindowLongA (long hWindow, integer nIndex) Library "user32.dll"
Function long SetWindowLongA (long hWindow, integer nIndex, long dwNewLong) Library "user32.dll"


// à coder dans l'evenement open de la fenetre response
ulong  lu_style
int   li_WL_STYLE    = -16
long    ll_WS_THICKFRAME   = 262144
long   ll_WS_SYSMENU   = 524288

lu_style = GetWindowLongA(handle(this), li_WL_STYLE)

IF lu_style <> 0 THEN
  if SetWindowLongA(handle(this), li_WL_STYLE, lu_style + ll_WS_THICKFRAME + ll_WS_SYSMENU ) <> 0 then
    this.hscrollbar = false
    this.vscrollbar = false      
  end if      
END IF