VB.Net/Network Remote/Message Sender

Message Sender Demo

<source lang="vbnet"> Imports System Imports System.Messaging Public Class MainClass

   Shared Sub Main()
     Dim Greeting As String = "Hello World!"
     Dim mQ As MessageQueue
     If MessageQueue.Exists(".\Private$\HelloWorld") Then
        mQ = New MessageQueue(".\Private$\HelloWorld")
     Else
        mQ = MessageQueue.Create(".\Private$\HelloWorld")
     End If
     mQ.Send(Greeting, "HelloWorld")
     Console.WriteLine("Greeting Message Sent to Private Queue.")
   End Sub

End Class

      </source>