Public Class NetSend
    Public Function Sende(ByVal Server As String, ByVal SendeAn As String, _
     ByVal SendeNachricht As String) As Integer
        Return NetMessageBufferSend(Server, SendeAn, Nothing, _
        SendeNachricht, SendeNachricht.Length * 2 + 2)
    End Function
    <DllImportAttribute("Netapi32", CharSet:=CharSet.Unicode)> _
    Public Shared Function NetMessageBufferSend(ByVal servername As String, _
     ByVal msgname As String, ByVal fromname As String, ByVal buf As String, _
     ByVal buflen As Integer) As Integer
    End Function
End Class