自定义消息然后处理回调文件存取、注册表写入文件存取法：程序A：（放在一个过程里，比如Text1_Change）Open "E:\通信文件.txt" For Output As #1
Print #1,Text1.TextClose #1程序B：（放在一个过程里，比如Timer1_Timer，或者Command1_Click）On Error Resume NextErr.ClearOpen "E:\通信文件.txt" For Input As #1
If Err.Number = 0 Then
Text1.Text=""
While Not EOF(1)
Line Input #1,Tempstr
Text1.Text = Text1.Text & Tempstr & vbCrLf
Wend
End IfClose #1Kill "E:\通信文件.txt"Err.Clear注册表写入法：程序A:(过程中)SaveSetting "通信小程序","自定义通讯","通讯1",Text1.Text程序B:(过程中)If GetSetting("通信小程序","自定义通讯","通讯1","无消息1")GetSetting("通信小程序","自定义通讯","通讯1","无消息2")Then
Text1.Text=GetSetting("通信小程序","自定义通讯","通讯1")
DeleteSetting "通信小程序","自定义通讯","通讯1"End If这样即可~推荐：注册表写入法更方便（不受文件存取限制，因为写入的是用户区域，也不会导致不安全现象~）当然用SOCK发消息也可以，不过不如这些方法简洁有效 |
