Сообщение WM_QUIT посылается окну для его закрытия
Возвращаемое значение
Сообщение WM_QUIT не возвращает значений
Параметры
wParam
Может быть равным 0
lParam
Не используется. Установите в 0
Пример
' Закроем калькулятор
Dim retval As Long
Dim lRet As Long
retval = FindWindow(0&, "Калькулятор")
lRet = PostMessage(retval, WM_QUIT, 0, 0&)
MsgBox "Калькулятор был закрыт"