声明: Private Declare Function GetCurrentProcess Lib "kernel32" () As Long Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long结束命令(取代end): TerminateProcess GetCurrentProcess, 0注意: 如果是在调试环境中,建议注释掉该语句,因为它会把vb一起关掉,让你在运行时作出的修改无法保存。
最好每个对象在使用后用SET OBJ=NOTHING释放一次.
如果用到时钟.在退出前设置其ENABLE=FALSE.然后再UNLOAD.
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long结束命令(取代end):
TerminateProcess GetCurrentProcess, 0注意:
如果是在调试环境中,建议注释掉该语句,因为它会把vb一起关掉,让你在运行时作出的修改无法保存。