求助：在VB通过API函数PostMessage对某窗体任一点按下鼠标，请问这任一点如何给出？

Question

在VB通过API函数PostMessage对某窗体任一点按下鼠标，请问这任一点如何给出？例子：
Public 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
Public Const MK_LBUTTON = &H1
Public Const WM_LBUTTONUP = &H202
Public Const WM_LBUTTONDOWN = &H201
hWndStatus = 0
hWndStatus = FindWindow("#32770", "设置")
Call PostMessage(hWndStatus, WM_LBUTTONDOWN, MK_LBUTTON, lParam)
Call PostMessage(hWndStatus, WM_LBUTTONUP, MK_LBUTTON, lParamz)1：请问lParam如何给出？
2、在VB有什么更好方法实现通过API函数对某窗体任一点按下鼠标
3、在VB能否定义宏，例：C++builder中有定义如下：
#define MAKELONG(a, b) ((LONG) (((WORD) (a)) | ((DWORD) ((WORD) (b))) << 16))
在VB中可用makelong吗？如可用如何在哪定义，后可用。

Answer 1

dim lParam  as long
    
    lParam = 65536 * y + x

Answer 2

lParam 高16位是y，低16位是x
dim x as long
dim y as long
x = your_point_x
y = your_point_y
PostMessage(your_hWnd, WM_LBUTTONDOWN, 0, y*2^16+x)
PostMessage(your_hWnd, WM_LBUTTONUP, 0, y*2^16+x)