>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 >ENDCASE >>