呼び出したスレッドのスレッドIDを取得する
Declare Function GetCurrentThreadId Lib "kernel32.dll" () As Long
Declare Function GetCurrentThreadId Lib "kernel32.dll" () As Integer
正常終了のとき 呼び出したスレッドID