mshflexgrid控件选择有关问题

mshflexgrid控件选择问题
当点击mshflexgrid控件任意行（其第一列为空白）的时候，相应的这一行的第一列就变成了 "√ "，有没有办法，当点击第一列为 "√ "的行时后，这一行的第一列就变成原来的空白。
Private   Sub   MSHFlexGrid1_Click() '选中删除的行
With   MSHFlexGrid1
.TextMatrix(.RowSel,   0)   =   "√ "
End   With
End   Sub

[解决办法]
Private Sub MSHFlexGrid1_Click() '选中删除的行
With MSHFlexGrid1
if trim(.textmatrix(.rowsel,0))= " " then
.textmatrix(.rowsel,0)= "√ "
else
.textmatrix(.rowsel,0)= " "
end if
End With
End Sub