If Type("_Screen.ActiveForm.ActiveControl")=="O"
	Local loActiveControl
	m.loActiveControl = _Screen.ActiveForm.ActiveControl
	If m.loActiveControl.BaseClass = "Grid"
		*do whatever 
		Endif
	Endif
Endif