Visual Basic - MSFlexgrid Evento MouseMove

Hola
Tengo un problema con MSFlexgrid , lo q estoy haciendo es lo siguiente
Private Sub MSFlexgrid_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim ColumnaTwips As Single
Dim FilaTwips As Single
Dim Columna As Long
Dim Fila As Long
Dim ValorCelda As String

If Button = 0 Then
With MSFlexgrid
'Obtenemos los valores de la fila y columna donde esta el mouse
ColumnaTwips = CSng(x / .CellWidth)
FilaTwips = CSng(y / .CellHeight)
Columna = Fix(ColumnaTwips)
Fila = Fix(FilaTwips)
'Obtiene el valor de la celda sobre la cual se hizo click
'ValorCelda = Flex.TextMatrix(Fila, Columna)
If (Fila < f And Columna < c) Then
zxc.Text = Fila & "," & Columna
.Row = Fila
.Col = Columna
.CellBackColor = RGB(255, 0, 0)
End If
'Cambia el capion del submenu
End With
End If
End Sub

Cuando tengo un numero considerable de filas o columnas entonces sale el error de EXPRESION COMPLEJA.
Alguien puede colaborarme con esto, lo q quiero hacer es en la celda donde este el cursor cambie de color solo esa unida celda .....
Si alguien tiene otro modo con otro control entonces me ayudara bastante......