Как реализовать выход из программы с указанием кода возврата

[PavelT100]

Как реализовать выход из программы на VB6 с указанием кода возврата

[RayShade]

Код: Выделить всё

Private Declare Function GetCurrentProcess Lib "kernel32" Alias "GetCurrentProcess" () As Long
Private Declare Function TerminateProcess Lib "kernel32" Alias "TerminateProcess" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long

Sub MyExitSub(lCode As Long)
TerminateProcess GetCurrentProcess, lCode
End Sub


[PavelT100]

Спасибо, а нельзя ли это сделать проще? Разве нет в VB своих стандартных способов сделать это ?

[FaKk2]

Спасибо, а нельзя ли это сделать проще? Разве нет в VB своих стандартных способов сделать это ?

А куда проще?
Нет, нету.