Having vfp7 you cannot use bindevent whose gives an easy solution.
then try this code.it generates a mousepointer for each column or column text of a demo grid.

publi oform
oform=newObject("asup")
oform.show
read events
retu
*
DEFINE CLASS asup AS form
	Height = 324
	Width = 963
	AutoCenter = .T.
	Caption = "MouseMove or focus on any  grid cell"
	Name = "Form1"

	ADD OBJECT grid1 AS grid WITH ;
		Anchor = 15, ;
		Height = 301, ;
		Left = 8, ;
		Top = 12, ;
		Width = 948, ;
		Name = "Grid1"

	PROCEDURE Destroy
		clea events
	ENDPROC

	PROCEDURE grid1.Init
		close data all
		sele * from home(1)+"samples\data\customer.dbf" into cursor  ycurs readwrite

		with this
		.recordsource="ycurs"
		.recordsourcetype=1
		.deletemark=.f.
		.gridlines=0
		.themes=.f.
		.headerHeight=27
		.setall("fontbold",.t.,"header")
		.setall("fontsize",14,"header")
		.setall("forecolor",rgb(0,255,0),"header")
		.setall("backcolor",0,"header")
		locate
		*******************here demo snippet to apply********
		for i=1 to .columncount
		if i<=17   &&all standard vfp mousepointers
		.columns(i).text1.mousepointer=i
		else
		.columns(i).text1.mousepointer=0
		endi
		endfor
		****************************************************
		endwith
	ENDPROC

ENDDEFINE
*
*-- EndDefine: asup

note: can also use a valid icon (fill mouseicon property) and use mousepointer=99