Buat menjadi satu class pada visual basic dan gunakan pada saat close program waktu di MDI nya.
Sebab terkadang program masih ada di memory.
Private Declare Function GetWindowThreadProcessId Lib "user32" _
(ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, _
ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function GetExitCodeProcess Lib "kernel32" _
(ByVal hProcess As Long, lpExitCode As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32" _
(ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Public Sub GP_EndApplication(hwnd As Long)
Dim hInst As Long
Dim hProcess As Long
Dim lProcessID
Dim lExitCode As Long
hInst = GetWindowThreadProcessId(hwnd, lProcessID)
'Get handle to process
hProcess = OpenProcess(&H1F0FFF, 0&, lProcessID)
If hProcess <> 0 Then
'get exit code
GetExitCodeProcess hProcess, lExitCode
If lExitCode <> 0 Then
'bye-bye
lRet = TerminateProcess(hProcess, lExitCode)
End If
End If
End Sub