>I am trying to drag a grid cell. I set the drag mode property to Automatic on the Textbox control in the grid. This doesn't seem to work. Am I missing something? or Do I have to drag this manually?
>
>Maria Arendt

Maria, what I did to make it working - I actually drag not the textbox in the grid column, but invisible label on the form. Label has the proper DragIcon property.

**** grid.column1.textbox1.MouseDown()
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.lblDrag.tag = anyValueIwantToCarry
NODEFAULT

**** grid.column1.textbox1.MouseMove()
LPARAMETERS nButton, nShift, nXCoord, nYCoord
NODEFAULT

**** grid.MouseMove()
LPARAMETERS nButton, nShift, nXCoord, nYCoord
IF nButton = 1 
*next two lines are to move label in proper position to start Drag from
		Thisform.lblDrag.Left = nXCoord 
		Thisform.lblDrag.Top = nYCoord
		Thisform.lblDrag.Drag()
ENDIF

HTH,

Nick