>I'm working on a slider control:
>http://www.geocities.com/kevin.marois/slider/dragdrop1.jpg
>
>I can't seem to get the thumb to work right.
>
>See this:
>http://www.geocities.com/kevin.marois/slider/test.zip
>
>Anyone know how to go about this?


Hi Kevin,

Great Idea !

Just replace the code you have in your MouseMove() event from the CommandButton inside the container with the code below:

LPARAMETERS nButton, nShift, nXCoord, nYCoord

IF nButton <> 1 
	RETURN
ENDIF


IF nXCoord <= This.Parent.Left
	nXCoord = This.Parent.Left
ENDIF

IF nXCoord >= This.Parent.Left + This.Parent.Width - This.Width
	nXCoord = This.Parent.Left + This.Parent.Width - This.Width 
ENDIF

This.Left = nXCoord - This.Parent.Left

RETURN

Hope this helps

Cesar