Private Function NetSendMessage(msgData As NetMessageData) As String
 
   Dim success As Long
 
  'assure that the OS Is NT ..
  'NetMessageBufferSend  can Not
  'be called On Win9x
   If IsWinNT() Then
 
      With msgData
 
        'If To name omitted return Error And Exit
         If .sSendTo = "" Then
 
            NetSendMessage = GetNetSendMessageStatus(ERROR_INVALID_PARAMETER)
            Exit Function
 
         Else
 
           'If there Is a message
            If Len(.sMessage) Then
 
              'convert the strings To unicode
               .sSendTo = StrConv(.sSendTo, vbUnicode)
               .sMessage = StrConv(.sMessage, vbUnicode)
 
              'Note that the API could be called passing
              'vbNullString As the SendFrom And sServerName
              'strings. This would generate the message On
              'the sending machine.
               If Len(.sServerName) > 0 Then
                  .sServerName = StrConv(.sServerName, vbUnicode)
               Else
                  .sServerName = vbNullString
               End If
 
               If Len(.sSendFrom) > 0 Then
                  .sSendFrom = StrConv(.sSendFrom, vbUnicode)
               Else
                  .sSendFrom = vbNullString
               End If
 
              'change the cursor And show. Control won't return
              'Until the Call has completed.
               Screen.MousePointer = vbHourglass
 
               success = NetMessageBufferSend(.sServerName, _
                                              .sSendTo, _
                                              .sSendFrom, _
                                              .sMessage, _
                                              ByVal Len(.sMessage))
 
               Screen.MousePointer = vbNormal
               NetSendMessage = GetNetSendMessageStatus(success)
 
            End If 'If Len(.sMessage)
         End If  'If .sSendTo
      End With  'With msgData
   End If  'If IsWinNT 
End Function
 
Private Function GetNetSendMessageStatus(nError As Long) As String
 
   Dim msg As String
 
   Select Case nError
 
     Case NERR_SUCCESS:            msg = "VERSENDET an " & Combo1.Text & vbCrLf _
       & "Nachricht erfolgreich versandt!"
     Case NERR_NameNotFound:       msg = "FEHLGESCHLAGEN:" & vbCrLf & _
     Combo1.Text & " wurde nicht gefunden!"
     Case NERR_NetworkError:       msg = "FEHLGESCHLAGEN:" & vbCrLf & _
     "Allgemeine Netzstörung trat auf!"
     Case NERR_UseNotFound:        msg = "FEHLGESCHLAGEN:" & vbCrLf & _
     "Netzwerkverbindung konnte nicht gefunden werden!"
     Case ERROR_ACCESS_DENIED:     msg = "FEHLGESCHLAGEN:" & vbCrLf & "Access" & _
     "To computer denied"
     Case ERROR_BAD_NETPATH:       msg = "FEHLGESCHLAGEN:" & vbCrLf & "Sent" & _
     "From server name Not found."
     Case ERROR_INVALID_PARAMETER: msg = "FEHLGESCHLAGEN:" & vbCrLf & _
     "Unzulässige Parameter spezifiziert!"
     Case ERROR_NOT_SUPPORTED:     msg = "FEHLGESCHLAGEN:" & vbCrLf & "Network" & _
     "request Not supported."
     Case ERROR_INVALID_NAME:      msg = "FEHLGESCHLAGEN:" & vbCrLf & _
     "Unzulässige Zeichen!"
     Case Else:                    msg = "FEHLGESCHLAGEN:" & vbCrLf & _
     "Unbekannte Störung!"   
   End Select
   GetNetSendMessageStatus = msg   
End Function  
 
Private Function TrimNull(item As String)
 
  'return String before the terminating null
   Dim pos As Integer
   pos = InStr(item, Chr$(0))
 
   If pos Then
      TrimNull = Left$(item, pos - 1)
   Else
      TrimNull = item
   End If
End Function
 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
sndPlaySound App.Path & "\Close.WAV", 1
 
schließen = MsgBox(prompt:="Möchten Sie Messenger v1.1 wiklich beenden ?", _
buttons:=vbYesNo + vbQuestion, _
Title:="Messenger v1.1 beenden")
If schließen = vbYes Then
sndPlaySound App.Path & "\ding.WAV", 1
Messenger.Hide
Unload Messenger
End If
If schließen = vbNo Then
sndPlaySound App.Path & "\nein.WAV", 1
Cancel = True
End If
End Sub
 
Private Sub Label8_Click()
Combo1.Text = "F.Bayer"
Text4.Locked = False
Text4.SetFocus
End Sub
 
Private Sub Text4_Change()
If Text4.Text <> "" Then
Command1.Enabled = True
Else
Command1.Enabled = False
End If
 
End Sub