' Benötigt wird eine Form, eine Textbox (für Empfängeradresse),
' eine Textbox (für die Nachricht), ein Commandbutton
' Voraussetzung ist ein Heimnetzwerk
' unter Windows XP, 2000 oder NT
 
Option Explicit
 
Private Declare Function NetMessageBufferSend Lib "netapi32.dll" (lpServerName As Any, _
lpMsgName As Byte, lpFromName As Any, lpBuf As Byte, ByVal lnBufLen As Long) As Long

Private Const NERRSuccess As Long = 0&

Private Function NachrichtSenden(sendTo As String, Message As String) As Long
Dim writtenTo() As Byte
Dim MsgBuffer() As Byte
    writtenTo = sendTo & vbNullChar
    MsgBuffer = Message & vbNullChar
    NachrichtSenden = (NetMessageBufferSend(ByVal 0&, writtenTo(0), ByVal 0&, _
    MsgBuffer(0), UBound(MsgBuffer)) = NERRSuccess)
End Function

Private Sub Command1_Click()
Dim result As Long
    result = NachrichtSenden(Text1, Text2)
    If result <> 0 Then
        MsgBox "Nachricht erfolgreich versendet"
    Else
        MsgBox "Fehler beim Versenden der Nachricht"
    End If
End Sub

Private Sub Form_Load()
    Command1.Caption = "Senden"
End Sub