>Could I see how you implemented horizontal and vertical scroll bars?
>
>thanks,
>
>ray humphrys

Try this generic class code:

DEFINE CLASS MSFORMS2_SCROLLBAR AS OLECONTROL

* use of Microsoft Forms 2.0 Scrollbar, in FM20.dll (RegSrv32 first!)
OleClass = "Forms.ScrollBar.1"
Width = xx
Height = xx
Min = SCROLL_LOW
Max = SCROLL_HIGH
SmallChange = SMALL_CHANGE
LargeChange = LARGE_CHANGE

* vertical
Orientation = 0 && or 1 horizontal

PROCEDURE Change
* OLE event
* ---- do something
ENDPROC

PROCEDURE Scroll
* OLE event
* ---- do something
ENDPROC

PROCEDURE Init
WITH THIS
* set to minimum value
.Object.Value = .Min
ENDWITH
ENDPROC

PROCEDURE MoveToHome
* user proc
WITH THIS
.Object.Value = .Min
ENDWITH
ENDPROC

PROCEDURE MoveToEnd
* user proc
WITH THIS
.Object.Value = .Max
ENDWITH
ENDPROC

... etc etc

ENDDEFINE

John Burton