(FarPoint Spread 6 + VB6) Introducir texto en celda de grilla

[pcarvajal]

Básicamente eso...
como puedo dejar que la celda de la fila a la que le hice click sea editable y pueda introducirle algun texto en ella?

tengo el siguiente codigo, pero poco y nada me ha servido

Código:

Private Sub sprAnalistaS_Click(ByVal Col As Long, ByVal Row As Long)

    If Row > 0 And Col >= 0 Then
        sprAnalistaS.Col = Col
        sprAnalistaS.Row = Row
        sprAnalistaS.BlockMode = False
        sprAnalistaS.EditMode = True
        sprAnalistaS.CellType = CellTypeEdit       
        sprAnalistaS.Value = sprAnalistaS.GetText(Col, Row) 'supongo esto esta malo...    
    End If

Exit Sub

Saludos y gracias de antemano