LPARAMETERS nButton, nShift, nXCoord, nYCoord DO CASE CASE nButton = 1 IF This.MousePointer=9 DO CASE CASE nXCoord < This.Left z=This.Left-nXCoord This.Left=nXCoord This.Width=This.Width+z CASE nXCoord > This.Left and nXCoord > This.Left+This.Width z=nXCoord-(This.Left+This.Width) This.Width=This.Width+z CASE nXCoord > This.Left and nXCoord < This.Left+This.Width and This.fromleft z=nXCoord-This.Left This.Left=nXCoord This.Width=This.Width-z CASE nXCoord > This.Left and nXCoord < This.Left+This.Width and This.fromright This.Width=nXCoord-This.Left ENDCASE ENDIF CASE nButton = 0 DO CASE CASE nXCoord = This.Left This.MousePointer = 9 This.fromleft=.t. This.fromright=.f. CASE nXCoord = This.Left+This.Width-1 This.MousePointer = 9 This.fromright=.t. This.fromleft=.f. OTHERWISE This.MousePointer = 0 This.fromleft=.f. This.fromright=.f. ENDCASE ENDCASEHTH :)