API32によりコンボボックスの選択肢を変更し、チェンジイベントを起こしたい。

Question

ExcelVBAとwin32APIを用いて他アプリケーションのコンボボックスを操作しようと考えています。
コンボボックスの値の変更は出来たのですが、変更時のイベントが起こりません

Public Const WM_COMMAND = &H111
Public Const CB_SELECTSTRING = &H14D
Public Const CBN_SELCHANGE = &H10000

SendMessage cbhundle, CB_SELECTSTRING, 0, search_word

oyahundle = GetParent(cbhundle)
PostMessage oyahundle, WM_COMMAND, CBN_SELCHANGE, cbhundle

検索した文字列の表示は正しく行われるのですが、
選択を切り替えたときに起こるはずのチェンジイベントが起こりません。

CBN_SELCHANGEを送る親ハンドルや固定値などでどこか間違っている箇所や、
追記しなければいけないコード等はありますでしょうか。

またそれ以外にもCBN_SELCHANGEを送信せずに回避する手法等がありましたらご教示お願いします。

Answer 1

自己解決することが出来ましたので解決方法を記載させていただきます。

'追記
Public Declare Function GetWindowLong Lib "USER32" Alias "GetWindowLongA" _
 (ByVal hWnd As LongPtr, ByVal nIndex As LongPtr) As LongPtr 

Public Const WM_COMMAND = &H111
Public Const CB_SELECTSTRING = &H14D
Public Const CBN_SELCHANGE = &H10000

'追記
public Const GWL_ID = -12

SendMessage cbhundle, CB_SELECTSTRING, 0, search_word
oyahundle = GetParent(cbhundle)

'追記
cb_id = GetWindowLong(cbhundle, GWL_ID) '識別子の取得
wp = CBN_SELCHANGE Or (cb_id And &HFFFF) 'パラメーターの作成

'修正
PostMessage oyahundle, WM_COMMAND, wp, 0

識別子の情報をパラメーターに渡し損ねていたのが原因でした。
ありがとうございました。