Visual Basic para Aplicaciones - mandar un mensaje a otra computadora

Hola a ver quien me puede ayudar

yo tengo abierto un programa en la maquina 1
y otro abierto en la maquina 2

solo quiero que mandar un mensaje de una a maquina y que aparezca en otra
"Tipo CHAT"
por favor me pueden ayudar con esto???????

Prueba con la API:
Private Declare Function NetMessageBufferSend Lib "NETAPI32.DLL" _
(yServer As Any, yToName As Byte, yFromName As Any, yMsg As Byte, ByVal lSize As Long) As Long

Ej.:
' Se llama a la función pasándole como parámetros el nombre de la máquina a que se va a enviar, el nombre de quien lo manda (o sea tú) y el mensaje. Esta función devuelve verdadero si no ha habido ningún problema.
blnValor = fnc_BroadcastMessage(strPC, strUsuario, strMensaje)

Public Function fnc_BroadcastMessage(strUserOrMachine As String, _
strFromName As String, strMessage As String) As Boolean
Dim bytToName() As Byte
Dim bytFromName1() As Byte
Dim bytMessageToSend() As Byte

'Coloca los datos en los arrays
bytToName = strUserOrMachine & vbNullChar
bytFromName1 = strFromName & vbNullChar
bytMessageToSend = strMessage & vbNullChar

' Envía el mensaje via API
If NetMessageBufferSend(ByVal 0&, bytToName(0), ByVal 0&, _
bytMessageToSend(0), UBound(bytMessageToSend)) = NERR_Success Then
'Devuelve verdadero si no da error
fnc_BroadcastMessage = True
End If
End Function

Espero que te sirva, suerte