如果还是不行,可以采用另外两种方式:
第一种:
Private Declare Sub ExitProcess Lib "kernel32" (ByVal uExitCode As Long)
Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Sub Form_Unload()
'在vb环境里面运行时,请注释掉如下代码,因为它同时还会关闭vb。
ExitProcess GetExitCodeProcess(GetCurrentProcess, 0)
End Sub
你还可以使用
TerminateProcess GetCurrentProcess, 0来结束程序的运行,关于TerminateProcess的声明,请查看api浏览器。