「第1634038339パラメータ」は明らかにおかしいですが,その後は間違っていないと思います。次のように第1引数のByValを削除してください。
コード:
hThread = CreateThread(0, 0, AddressOf(Action), 0, 0, VarPtr(ID))
これに限らず,一部の関数の引数でDeclareのByRef/ByValが変更されているため,同種のエラーがほかにも発生する可能性が高いです。現状では,最終的な判断はapi_*.sbpを見てくださいとしか言えず,ご迷惑をおかけすることになると思います。