VB treeview 多重选择的问题

Question

在VB中，自动生成的树控件如图：我想在控件中按住SHIFT键选择Folders下面的文件。
代码如下：
 Try
     If ParentCategoryNode.Text = "Folders" Then
        If e.Shift Then
           For i = 0 To ParentCategoryNode.Nodes.Count - 1
                        [color=#3366FF]If ParentCategoryNode.Nodes(i).Checked Then
                         MessageBox.Show(tvProject.SelectedNode.Nodes.Item(i).Text.ToString())
                        End If                   
                Next
                End If
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try[/color]
如果去掉蓝色的IF判断，则可以将Folder下面的文件都弹出来，但是，如果加了IF判断，就会出现异常。对了，这里的异常还是点击了Folder下面的文件就会出现。
不知道我的问题有没有描述清楚，请你们帮忙！