Sub CheckNodes(tv As TreeView, oNode As Node, Optional fChecked As Boolean = False, Optional lLevel As Long = 0) '打上勾 oNode.Checked = fChecked '有孩子的先抱孩子 If Not oNode.Child Is Nothing Then CheckNodes tv, oNode.Child, fChecked, lLevel + 1 End If '有兄弟的再抱兄弟 If (Not oNode.Next Is Nothing) And lLevel > 0 Then CheckNodes tv, oNode.Next, fChecked, lLevel End If End Sub Private Sub TreeView1_NodeCheck(ByVal Node As MSComctlLib.Node) Call CheckNodes(TreeView1, Node, Node.Checked) End Sub