主题：[求助]目录树

Dim Result As DialogResult

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")

Dim nd As WinForm.TreeNode = tr.SelectedNode

If nd.Nodes.Count = 0 Then

    Result = MessageBox.Show("确定删除?", "警告", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

    If Result = DialogResult.Yes Then

        nd.Delete()

        End If

        tr.Select