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

>
>Of these pyrotechnic effects I see every day of it.
>You can publish a small example, even it comes me some idea

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


ENDDEFINE