style :=   GetWindowLong(HD, GWL_STYLE) xor WS_VSCROLL;
SetwindowLong(HD,GWL_STYLE,  style );
SetWindowPos(HD, HD,wb.left, wb.Top, wb.Width, wb.height,SWP_NOMOVE or SWP_NOSIZE or SWP_NOZORDER or SWP_FRAMECHANGED);
  //wb.Style:=wb.Style and not WS_VSCROLL;
//SendMessage(HD,WS_VSCROLL,0,0);
//SetScrollRange(HD,SB_BOTH,0,0,true);
//ShowScrollBar(HD,SB_BOTH,false);

Add(MainForm,2953706,224,175)
{
 Width=411
 Height=409
 link(onCreate,6199211:doLoad,[])
}
Add(ListBox,6199211,315,161)
{
 Left=10
 Top=10
 Width=375
 Height=310
 FileName="License.txt"
 Point(Handle)
}
Add(Button,3589634,224,231)
{
 Left=10
 Top=335
 TabOrder=-1
 link(onClick,15191989:doSwitch,[])
}
Add(InlineCode,5350615,336,231)
{
 WorkPoints=#7:sAction|
 DataPoints=#6:Handle|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|30:uses kol,Share,Debug, Windows;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|24:      Handle: THI_Event;|53:      procedure sAction(var _Data:TData; Index:word);|5: end;|0:|14:implementation|0:|0:|29:procedure THiAsmUnit.sAction;|5:begin|66:  ShowScrollBar(ToIntegerEvent(Handle), SB_VERT, ReadBool(_Data));|4:end;|0:|4:end.|
 link(Handle,6199211:Handle,[])
}
Add(Switch,15191989,280,231)
{
 DataOn=Integer(1)
 DataOff=Integer(0)
 Default=0
 link(onSwitch,5350615:sAction,[])
}