如何让通达信联动

Private Declare Function RegisterWindowMessage Lib "user32" Alias "RegisterWindowMessageA" (ByVal lpString As String) As Long
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
 
Public nMsg As Long
Private Sub Command1_Click()
nMsg = RegisterWindowMessage("Stock")

PostMessage &H100B5C, nMsg, &H73F98D, 0
End Sub