我想用投递消息关闭窗口,但是怎么没效果呀?

SendMessage hWnd, 16, 0, 0

模块部分:
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (a As Long, b As Long, c As Long, d As Long) As Long

PostMessage

一样没效果,2个都试过

代码写出来了,帮忙看看WHY没效果

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const WM_CLOSE = &H10

Private Sub Command1_Click()
PostMessage Me.hwnd, WM_CLOSE, 0&, 0&
End Sub

太奇怪了,你的怎么就能正常,我那个代码就不正常呢??改成POST也不正常
你的改成Send也是正常的,郁闷啊...

你的声明:
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (a As Long, b As Long, c As Long, d As Long) As Long
我的声明:
Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

....参数加ByVal

哦，这样啊，为什么都要加ByVal呢？

跟VB里没有指针..有关系...