如何用Postmessage模拟屏幕100,100鼠标右击

怎么用Postmessage模拟屏幕100,100鼠标右击。
谁能帮忙给我可以用的vb.net代码吗

[解决办法]

VB code

Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As LongPrivate Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As LongPrivate Const WM_RBUTTONDOWN = &H204Private Const WM_RBUTTONUP = &H205Private Sub Command1_Click()    PThwnd = WindowFromPoint(100, 100)    PostMessage PThwnd, WM_RBUTTONDOWN, 0, 0    PostMessage PThwnd, WM_RBUTTONUP, 0, 0End Sub