Check "Fun with OLE drag and drop" in Solution samples.
Is that what you want?

>Hi...
>
>I'm using a container with width = 4000.. inside of other one of width=500px and by the press of mouse I'm moving across X axys using the follow routine:
>
>Sometime this routine behaves weird (no response) and heavy... And I'd like to know if someone know or could point me what could I change to use this smartier than that...
>
>TIA.. Claudio
>
>

procedure mousedown
>LPARAMETERS nButton, nShift, nXCoord, nYCoord
>Local lnOldPos, ;
>    lnAvgCharWidth, ;
>    lnMinPos, ;
>    lnMaxPos, ;
>    lnCurPos, ;
>    lnParentLeft
>lnAvgCharheight      = FONTMETRIC(1)
>lnAvgCharwidth       = FONTMETRIC(6)
>lnParentLeft         = this.otimeline.top
>lnMinPos             = (this.width-This.otimeline.width-2)
>lnMaxPos             = 3
>lnCurPos             = this.otimeline.top
>lnCurPosy            = Mrow(thisform.name, 3)
>lnCurPosx            = Mcol(thisform.name, 3)
>lnCurINIy            = Mrow(thisform.name, 3)
>lnCurINIx            = Mcol(thisform.name, 3)
>lnrowini             = this.otimeline.top
>lncolini             = this.otimeline.left
>
>Do  WHILE MDOWN() 
>    This.otimeline.Move(MAX(lnMinPos, MIN(lnCurPosx, lnMaxPos)),lnParentLeft)
>    lnCurPosx = lncolini + ( Mcol(thisform.name, 3) - lnCurINIx )
>Enddo
>endproc