
video 640 480 8
clearscr 255 255 255

SCROLLBOX 20 50 400 300 @scroll.txt			;syntax: scrollbox x1 y1 x2 y2 filename
wait
DestroyWindow(@scrollbox)
exitnow

;----------------------------------------------------------------------
scrollbox:

setupdll handle CreateWindow ScrollBox farstring farstring ulong int int int int handle handle handle farstring
setupdll bool DestroyWindow handle
local flags @WS_CHILD|@WS_VISIBLE|@WS_BORDER|@WS_VSCROLL|@ES_READONLY|@ES_MULTILINE|@ES_AUTOVSCROLL
global scrollbox ScrollBox("Edit",(@@5,@flags,@1,@2,@3-@1,(@4-@2),@winhandle,2000,@wininstance,@NULL)

return

