Option Explicit
 
Private Sub cmdSend_Click()
Dim sMsg As String
sMsg = InputBox("Msg eingeben")
Mailslot1.Send sMsg , "*"
End Sub
 
Private Sub Form_Load()
Mailslot1.Initialize "einslot", 1
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
Mailslot1.CloseSlot
End Sub
 
Private Sub Mailslot1_Incoming(sMessage As String)
MsgBox sMessage
End Sub

>> <<