史萊姆論壇 - VB6+ MSFlexGrid 的問題

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

http://fancytom.myweb.hinet.net/P68_P50.JPG

圖中的右半邊有一個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