VB TreeView删除节点有关问题,无法判断自动选中的当前节点是否有子节点

VB TreeView删除节点问题,无法判断自动选中的当前节点是否有子节点
不是点击选中的时候,而是当删除了一个节点,它自动选中某个节点的时候无法判断它是否有子节点。
如下面程序,只能判断点击选中的状态,无法判断自动选中下的状态。

If TreeView1.SelectedItem.Parent Is Nothing Then
MsgBox "不能删除全部部门。", vbInformation, "错误提示", "", context '错误提示
Else
If TreeView1.Nodes.Children = 0 Then  '判断是否有子节点,0为无
------解决方案--------------------
你放一个断点进去看看selecteditem到底是什么。