' Rapid-Q by William Yu (c)1999-2000                                             .
' ================================================================================
' Upload_il_tuo_script_su_Rapidq.it

' Scroll_verticale

'scroll vert only



Declare Function FlatSB_ShowScrollBar Lib "comctl32"_

alias "FlatSB_ShowScrollBar" (hWnd As Long,code As Long, fShow As Byte) As byte



declare sub hidescrollbar

create form as qform

                create r as qrichedit

                               width=600

                               height=600

                end create

                onpaint=hidescrollbar

                onresize=hidescrollbar

end create



form.showmodal



sub hidescrollbar

                FlatSB_ShowScrollBar(form.handle,0,0)

end sub




' ===============================================================================
'                      2003 Holyguard.net - 2007_Abruzzoweb