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