主题：[求助]BeforClose事件代码想写成函数，e.cancel如何处理？

Dim tr As WinForm.TreeView = Forms（fnm）.Controls("TreeView1")

For Each nd As winform.treenode In tr.allnodes

    nd.Forecolor=Color.black

Next

    Dim result As Dialogresult

    result=messagebox.show("是否保存此次所做的修改?","是否保存",MessageBoxbuttons.YesNoCancel,messageboxicon.question)

    If result=DialogResult.yes Then

        保存.PerformClick()  

    Else

    End If