VB6.0 如何模拟鼠标点击窗体的相对坐标？

Question

VB6.0 如何模拟鼠标点击窗体的相对坐标

比如，我激活了某个程序的窗体，因为该显示在屏幕的位置 每次都可能变化，因此，想模拟鼠标点击该窗体的某个相对位置的坐标。（比如相对坐标（100,100））

希望能有完整的代码。包括前面的定义之类的源码。谢谢了！！

只写了激活窗体部分，但是不知道怎么取得相对坐标模拟点击。
Private Sub Command1_Click()
Dim JSQhWnd As Long
JSQhWnd = FindWindow(vbNullString, "窗体主题")
If JSQhWnd> 0 Then
Delay (300)
AppActivate "窗体主题"
Delay (300)
End If
End Sub