用vb编写控件，想在中vc使用，在控件中怎么给使用控件得窗体发消息

Question

   
我现在用vb开发一个控件
是要在vc中使用
当鼠标点击一下控件中得按扭时 向所在得vc窗体发送一个消息
请问如何实现
  

Answer 1

自己贴一下目前自己的解决办法，已经通过测试，可以将单击消息发给另外一个窗体的按钮
但是用我的代码好像无法将消息直接传递给那个窗体？！
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long '
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long '
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Const BM_CLICK = &HF5
Const ts = "wzc"'窗体的名字
Private Sub Command1_Click()
   pk = FindWindow(vbNullString, ts)
        pp = FindWindowEx(pk, 0, vbNullString, "Button1")
    SendMessage pp, BM_CLICK , 0, 0
End Sub