VB中的MSFLEXGIRD如何实现单击一条记录其背景变成绿色，再次单击恢复原来的颜色，其他记录也是如此？

VB中的MSFLEXGIRD如何实现单击一条记录其背景变成绿色，再次单击恢复原来的颜色，其他记录也是如此？

Private Sub Form_Load()
MSFlexGrid1.Cols = 10
MSFlexGrid1.Rows = 10
MSFlexGrid1.FixedCols = 0
MSFlexGrid1.FixedRows = 0
End Sub
Private Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If MSFlexGrid1.CellBackColor = &H80C0FF Then
For i_Col = 0 To MSFlexGrid1.Cols - 1
MSFlexGrid1.Col = i_Col
MSFlexGrid1.CellBackColor = vbWhite
Next i_Col
Else
For i_Col = 0 To MSFlexGrid1.Cols - 1
MSFlexGrid1.Col = i_Col
MSFlexGrid1.CellBackColor = &H80C0FF
Next i_Col
End If
End Sub追问为什么一条记录，要单击两次才变色？追答我这里运行无误。追问我想设置一个命令按钮，当判断MSFLEXGIRD中如有记录是绿色（选中一条或多条），则调用某个窗体，怎么编写代码？追答新问题新帖子