como envio net send en un modulo visual en un dts

[VisualGuallabo]

Solo tienes que crear un modulo y copiar el codigo de la faq y de donde quieras mandar el mensaje usar este codigo:

Dim ret As Long
ret = NetSendMessage("PC", "mensaje")
If ret <> 0 Then
MsgBox NetSendErrorMessage(ret), vbCritical, "Error"
Else
MsgBox NetSendErrorMessage(ret), vbInformation, "NetSend"
End If