Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing Dim p p = MessageBox.Show("确定退出程序吗?", "", MessageBoxButtons.YesNo) If p = DialogResult.Yes Then e.Cancel = 0 Else e.Cancel = 1 End If End Sub