VB.Net/Network Remote/Message Sender

Message Sender Demo

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