如何用DLL实现两个VB程序间的数据交换？

[cpcfchina]

我做了的DLL，代码如下：
类名：clsTest
Option Explicit
Public Event evTell(ByVal nGun As Integer)
Dim strTest As String
Public Property Get strShow() As String
strShow = strTest
End Property

Public Property Let strShow(ByVal NewValue As String)
strTest = NewValue
End Property

Public Sub Tell(ByVal nGun As Integer)
RaiseEvent evTell(nGun)
strTest = nGun
End Sub

Private Sub Class_Initialize()
strTest = "Start"
End Sub
应用程序1引用了该DLL后，在form1中代码为：
Option Explicit
Dim WithEvents TemN As clsTest
Private Sub Command1_Click() '这是个命令按钮1
TemN.Tell (1)
End Sub

Private Sub Form_Load()
Set TemN = New clsTest
End Sub

Private Sub TemN_evTell(ByVal nGun As Integer)
MsgBox "P1: " & nGun
End Sub

Private Sub Command2_Click() '命令按钮2
TemN.strShow = "Che Show"
End Sub

应用程序2代码：
Option Explicit
Dim WithEvents TemN As clsTest
Private Sub Command1_Click() '应用程序2的按钮
MsgBox TemN.strShow
End Sub

Private Sub Form_Load()
Set TemN = New clsCheInfo
End Sub

Private Sub TemN_evTell(ByVal nGun As Integer)
MsgBox "P2:" & nGun
End Sub

测试时：应用程序1按按钮1后，出现提示“P1:1”，应用程序2无提示
应用程序1按按钮2后，应用程序2按按钮仍然提示是“Start”
我想，这是因为两个应用程序采用了不同的实例的原因，但要实现按应用程序1按钮1后，应用
程序2能得知，及应用程序1修改了strTest的值后，应用程序2能得到这个改变的值，该如何实现呢？

[三断笛]

进程间通信用DDE？肯定有好的办法，不过我还不知道

[嗷嗷叫的老马]

http://www.m5home.com/blog2/blogview.asp?logID=363&cateID=2

共享内存+消息实现跨进程通讯的类.

可以参考一下.

[tszsc]

http://www.m5home.com/blog/blogview.asp?logID=365&cateID=2
这个类型库无法下载啊，打不开网页

[cpcfchina]

有一定的参考价值，不过这样做显得有些烦琐，还是感谢

[几罗星人]

其实不需要用DLL，因为VB6带有的DDE数据交换技术就可以实现两个或多个不同程序间的数据交换，我哪有源码，拿去参看参看吧。http://jiluoxingren.download.csdn.net/user/JiLuoXingRen/all/4
下载【VB DDE数据交换技术】那篇源码。