请教:取消关闭窗体

如何在这段代码中实现取消关闭窗体:

Private Sub Form1_Close(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Closed

Dim a As MsgBoxResult

a = MsgBox("是否关闭?", MsgBoxStyle.YesNoCancel, "消息提示")

If a = MsgBoxResult.Cancel Then

End If

End Sub

帮忙改一下代码

try:

Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing

e.Cancel = True

End Sub

注意：e.Cancel = True 这句的用法