'================================================================
'= 自分自身のスレッドを終了させる

'=    (GetExitCodeThread.bas)
'================================================================
#include "Windows.bi"

' 自分自身の擬似スレッドハンドルを取得
Declare Function Api_GetCurrentThread& Lib "kernel32" Alias "GetCurrentThread" ()

' スレッドを終了
Declare Sub Api_ExitThread Lib "kernel32" Alias "ExitThread" (ByVal dwExitCode&)

' 指定したスレッドの終了ステータスを取得
Declare Function Api_GetExitCodeThread& Lib "kernel32" Alias "GetExitCodeThread" (ByVal hThread&, lpExitCode&)

'================================================================
'=
'================================================================
Declare Sub Button1_on edecl ()
Sub Button1_on()
    Api_ExitThread Api_GetExitCodeThread(Api_GetCurrentThread, 0)
End Sub

'================================================================
'=
'================================================================
While 1
    WaitEvent
Wend
Stop
End