怎么用DLL实现两个VB程序间的数据交换

如何用DLL实现两个VB程序间的数据交换？
我做了的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

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

可以参考一下.
[解决办法]
http://www.m5home.com/blog/blogview.asp?logID=365&cateID=2
这个类型库无法下载啊，打不开网页
[解决办法]
有一定的参考价值，不过这样做显得有些烦琐，还是感谢
[解决办法]
其实不需要用DLL，因为VB6带有的DDE数据交换技术就可以实现两个或多个不同程序间的数据交换，我哪有源码，拿去参看参看吧。http://jiluoxingren.download.csdn.net/user/JiLuoXingRen/all/4
下载【VB DDE数据交换技术】那篇源码。