RE:Enviar mensaje a otro pc
Prueba con esto:
' Se envía un mensaje al usuario o máquina que le indiques
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
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