史萊姆論壇 - VB6 簡單的tree( 將所有打勾的字串合併 )

我已做一個很簡單的tree如下圖

http://huhuge.hp.infoseek.co.jp/Pic1.gif

我現在想作的是: 將第3層中所有有打勾的字串合併 (例如 "1年級1班" "1年級2班" "1年級6班" 這3個字串合併後放在變數 strNodes) 若是打勾到的是上層的 "1年級" 或 "全校各班" 則乎略之.
雖然我知道是寫在TreeView1_Click() 事件 , 但是TreeView 我不熟
請熟悉treeview 的大大們改正我所寫的TreeView1_Click() 事件錯誤.

---------------
問題2:
當滑鼠選中 "1年級1班" 時：我想要讓user 若按中鍵盤[Del] 鍵自動刪除此節點．若是按中鍵盤[Insert] 鍵就呼叫執行 command1_click() 事件．
這要如何寫?

也附上專案http://huhuge.hp.infoseek.co.jp/post_jpg/tree.rar
謝謝
---原碼------------------------------

語法:

Private Sub Form_Load()

    TreeView1.LineStyle = tvwTreeLines

    TreeView1.ImageList = ImageList1

    TreeView1.Style = tvwTreelinesPlusMinusPictureText

    TreeView1.Nodes.Add , , "root", "全校各班", 1

    For i = 1 To 6

        n = i & "年級"

        TreeView1.Nodes.Add "root", tvwChild, "GID" & i, n, 7

        For j = 1 To 10

            n = i & "年級" & j & "班":

            TreeView1.Nodes.Add "GID" & i, tvwChild, "y" & i & j, n, 2

        Next

    Next

End Sub



Private Sub TreeView1_Click()

    Dim i As Integer

    Dim strNodes As String

    

'    For i = 1 To TreeView1.Nodes.Count

'        strNodes = strNodes & TreeView1.Nodes(i).Index & " " & _

'        "Key: " & TreeView1.Nodes(i).Key & " " & _

'        "Text: " & TreeView1.Nodes(i).Text & vbLf

'    Next i





    Label1 = strNodes

End Sub