'退出操作确认
Dim close As DialogResult
close = MessageBox.Show("确认要关闭软件吗? ", "警告提示 ", MessageBoxButtons.YesNo, MessageBoxIcon.Asterisk)
If close = Windows.Forms.DialogResult.Yes Then
Me.Dispose()
Application.Exit()
Else
e.Cancel = True
End If