>Hi
>Here is a sample
>Exists a workaround: to handle mousewheel event by code
>


Hi Dorin, It seems me that this is enough:

PUBLIC oform1

oform1=NEWOBJECT("form1")
oform1.Show
RETURN

DEFINE CLASS form1 AS form
	Top = 0
	Left = 0
	Height = 470
	Width = 637
	DoCreate = .T.
	Caption = "Form1"
	Name = "Form1"

	ADD OBJECT grid1 AS grid WITH ;
		ColumnCount = -1, ;
		Height = 229, ;
		Left = 164, ;
		RecordSourceType = 1, ;
		Top = 104, ;
		Width = 297, ;
		Name = "Grid1"


	ADD OBJECT grid2 AS grid WITH ;
		ColumnCount = -1, ;
		Height = 332, ;
		Left = 88, ;
		RecordSourceType = 1, ;
		Top = 64, ;
		Width = 468, ;
		Name = "Grid2"


	PROCEDURE Load
		CREATE CURSOR test1 (col1 i, col2 i, col3 i)
		FOR i = 1 TO 100
			INSERT INTO test1 (col1,col2,col3) VALUES (i,i,i)
		ENDFOR 
		GO TOP 

		CREATE CURSOR test2 (col4 i, col5 i, col6 i)
		FOR i = 1 TO 100
			INSERT INTO test2 (col4,col5,col6) VALUES (1000+i,1000+i,1000+i)
		ENDFOR 
		GO TOP 
	ENDPROC


	PROCEDURE Init
		this.grid1.RecordSource = "test1"
		this.grid1.Refresh 
		this.grid2.RecordSource = "test2"
		this.grid2.Refresh 

	ENDPROC

	PROCEDURE Grid2.Scrolled
		LPARAMETERS nDirection
		This.Visible = .T.

	* this for Change row
	PROCEDURE Grid2.AfterRowColChange
		LPARAMETERS nColIndex
		This.Visible = .T.
	
ENDDEFINE