Visual Basic - NET SEND ????

Para canalizar los avisos de los usuarios de la red que voy a mantener (20 equipos) estoy creando una sencilla aplicación. Pretendo usar "Net Send", pero al ejecutarlo (en winxp), aparece momentáneamente en la barra de tareas el icono del prompt del sistema y desaparece al segundo, sin que se haya enviado ningún mensaje. Uso el comando Shell:

orden = "net send" & "213.227.39.32" & "Mensaje enviado por " & Text1.Text & ". Incidencia" & Text2.Text
Shell (orden)

Y creo que no se puede ejecutar comandos del DOS mediante Shell. ¿Alguien me orienta? Muchas gracias!

Puedes utilizar directamente la API NetSend:

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

Private Const NERR_Success As Long = 0&

Public Function BroadcastMessage(sToUser As String, _
sFromUser As String, sMessage As String) As Boolean

Dim yToName() As Byte
Dim yFromName() As Byte
Dim yMsg() As Byte
Dim l As Long
yToName = sToUser & vbNullChar
yFromName = sFromUser & vbNullChar
yMsg = sMessage & vbNullChar
If NetMessageBufferSend(ByVal 0&, yToName(0), ByVal 0&, _
yMsg(0), UBound(yMsg)) = NERR_Success Then

BroadcastMessage = True
End If
End Function