' Code für das Ermitteln des Windows-/System Ordners
Private Declare Function GetSystemDirectory Lib "kernel32" _
  Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, _
  ByVal nSize As Long) As Long
 
' Windows-System-Verzeichnis ermitteln
Public Function GetSystemDir() As String
  Dim Temp As String
  Dim lResult As Long
 
  Temp = Space$(256)
  lResult = GetSystemDirectory(Temp, Len(Temp))
  Temp = Left$(Temp, lResult)
  If Right$(Temp, 1) <> "\" Then Temp = Temp + "\"
  GetSystemDir = Temp
End Function
' Nachricht senden
Public Sub NetSend(ByVal SendTo As String, _
  ByVal Message As String)
 
  Dim SysDir As String
 
  SysDir = GetSystemDir()
  Shell SysDir & "net.exe send " & _
    SendTo & " " & Message
End Sub

Private Sub cmdSend_Click()
  NetSend txtrecipient.Text, txtmessage.Text
  'txtrecipient.Text = "Empfänger auswählen"
  'txtmessage.Text = ""
End Sub

cu
Bris

"640 KB Ram sind mehr als irgendein Programm jemals ben?tigen wird."
- (Bill Gates - 1981)