アプリの右上の「閉じるボタン」をプログラム上で押して終了させたい。

下記は抜粋ですが、閉じたいアプリのハンドルを収得して、PostMessageでやっていますが何にも反応しません。WM_NCLBUTTONDOWN/UPに変えてもダメでした。
TerminateProcessではなく、「閉じるボタン」を押して終了させたいです。
よろしくお願いします。


'アプリのハンドルを取得する
　　h1 = FindWindowEx(0, 0, "MDIFrame", lpszWindow)

'閉じるボタンの座標を取得する
     Call GetClientRect(h1, lstRect)
     x = lstRect.Right - 10
     y = lstRect.Top + 10
     y = y * 2 ^ (16 - 1)  '上位２バイト配列にするため
      
'閉じるボタンをクリックする
     Call PostMessage(h1, WM_LBUTTONDOWN, 0, y + x) '上位ワード:y座標 下位ワード:x座標
     Call PostMessage(h1, WM_LBUTTONUP, 0, y + x)
      

自己解決しました。

Call SendMessage(h1, WM_SYSCOMMAND, SC_CLOSE, 0)

で出来ました。
お騒がせしました。