VB 利用DDE进程间通信，5行代码搞定

Client

添加Command1，Text1及一个picturebox（命名为picDDE）

代码如下：

 Option Explicit Private Sub Command1_Click() picDDE.LinkTopic = "app2|yuanyuan" picDDE.LinkMode = 2 picDDE.LinkExecute Text1.Text End Sub

Server

添加Text1，设置工程名称为app2，设置窗体的LinkMode属性为1，LinkTopic为yuanyuan

代码如下：

Option Explicit Private Sub Form_LinkExecute(CmdStr As String, Cancel As Integer) Text1.Text = CmdStr Cancel = 0 End Sub

整个工程下载地址：http://download.csdn.net/source/1759069