程式 - VB6+ MSFlexGrid 的問題

[飛行船大大]

MSFlexGrid1 的屬性 SelectionMode 我因為其他因素必須設0
且 最左邊的col= 0的直欄 我是隱藏的
如下圖:


圖中的右半邊 有一個MSFlexGrid1 控制項
所以現在希望當 user 若點中某一列某一行(例如畫面中第1 row 第1col 的 "100000" 或 第1 row 第2col 的 "上市加權" ) -->希望那一列整列的row就高亮反白.

問題來了:
當 user 若點中(例如畫面中第1 row 第1 col 的 "100000" 或是 第1 row 第2 col 的 "上市加權" ) 時 -->我想模擬成 使程式也自動點中 第1 row 第0 col (即被隱藏的的那個cell) ．看看是否可以那一列整列的row就高亮反白

請問 MSFlexGrid1 此事件&指令 VB6應該如何寫 ??

---
我有試過 SelectionMode=0 情況下 (但是反白只有點中的cell的右邊有反白 左側沒有反白 , 所以不符需求)

Private Sub MSFlexGrid1_Click()
   Dim i As Long, x_代號 As String
'MSFlexGrid1.Row = MSFlexGrid1.RowSel 
' 取得列之索引值。
'strRowTitle = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 1)
'MsgBox strRowTitle

   For i = 0 To MSFlexGrid1.cols - 1
      MSFlexGrid1.ColSel = i
      MSFlexGrid1.BackColorSel = vbBlue
   Next
End Sub

[vbstudents1]

飛行船大大這是你開發的嗎??
感覺挺專業~!!