TreeView的NodeCheck事件有bug嗎?(編號：4430)

我在TreeView的NodeCheck事件中寫以下程式
Private Sub TreeView1_NodeCheck(ByVal Node As MSComctlLib.Node)
If Node.Children ＞ 0 Then
　　　　　　For i = 1 To Node.Children
　　　　　　　　If i = 1 Then
　　　　　　　　　　Node.Child.Checked = True
　　　　　　　　Else
　　　　　　　　　　Node.Child.Next.Checked = True
　　　　　　　　End If
　　　　　　Next i
　　End If

End Sub
我讓被checked的節點的子節點都打上勾(checked), 可是總是只有前兩個子節點被打上勾,三個或三個以上都不被打勾,這是為什么?
我用逐行方式執行程式,都有被執行到,可是為什么不給我checked上呢?