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

验证方法：

假设编译后client为client.exe，server端为server.exe。先双击运行server.ext，然后再打开client.exe，在client端的文本框里输入消息然后点按钮发送，这样server.exe那边就会显示出自于客户端的信息。

整个工程下载地址：

http://download.csdn.net/source/1759069