软糖来回答罗：通过System.Diagnostics命名空间下的Process类来关闭程序的进程
成都创新互联成都网站建设按需设计，是成都网站营销推广公司,为自拌料搅拌车提供网站建设服务,有成熟的网站定制合作流程，提供网站定制设计服务：原型图制作、网站创意设计、前端HTML5制作、后台程序开发等。成都网站推广热线：028-86922220
Dim 进程集合 = Process.GetProcessesByName("进程名称")
For Each 进程 In 进程集合
进程.Kill()
'进程.Close() '或者使用关闭
Next
也可以先获取所有进程，再来判断这些进程的名称ProcessName
Dim 获取本地所有进程 = Process.GetProcesses()
For Each 进程 In 获取本地所有进程
If 进程.ProcessName = "explorer.exe" Then 进程.Kill()
Next
主窗体代码调用Me.close不就可以了吗？或者在任意代码处调用Application.Exit()。如果不起作用的话是因为你在窗体关闭的事件中调用了e.Handle=True
Allocconsle 打开一个控制台窗口
Call 调用DLL文件中的函数
Freeconsole 关闭控制台窗口
Call 命令调用DLL文件中函数后，函数运行时，如果用户关闭控制台，会弹出错误对话框。
本人想实现：当用户点击控制台关闭按钮后，弹出一个确认对话框，点确定，控制台关闭，并不会出现错误对话框；点取消，控制台继续运行。
