Selezionare intera riga di una FlexGrid

[Adrix]

non chiedetemi perchè ma così funziona

Private Sub grd1_Click()

grd1.ColSel = 0
grd1.ColSel = 0
grd1.ColSel = 1
grd1.ColSel = 1
grd1.ColSel = 0

End Sub