VB中使用DDE实现两个应用程序之间的通讯

工程：Main
加载一个pictureBox，命名为picDDE
加载一个commandButton,命名为cmdSendMessage
Option Explicit
Private Sub LinkAndSendMessage(ByVal Msg As String)
Dim t As Long

picDDE.LinkMode = 0
picDDE.LinkTopic = "Child|frmChild"
picDDE.LinkMode = 2
picDDE.LinkExecute Msg

t = picDDE.LinkTimeout
picDDE.LinkTimeout = 1
picDDE.LinkMode = 0
picDDE.LinkTimeout = t
End Sub
Private Sub cmdSendMessage_Click()
LinkAndSendMessage "测试通讯！！"
End Sub
Private Sub Form_Load()
Shell App.Path & "/Child.exe"
End Sub

工程：Child
设置其LineMode = 1-Source
设置其LineTopic = frmChild
Option Explicit
Private Sub Form_LinkExecute(CmdStr As String, Cancel As Integer)
MsgBox CmdStr
Cancel = 0
End Sub