Public Interface IQueueForm
  Sub DisplayMessage( ByVal Message As String)
End Interface
Public Class nQueue 
  private myQueueForm as IQueueForm
  Public Sub New( ByVal QueueForm as IQueueForm)
    myQueueForm = QueueForm
  End Sub
Public Sub ReceiveCompleted(ByVal msmq As System.Object, ByVal e As _
  System.Messaging.ReceiveCompletedEventArgs) Handles _
  nInfoQueue.ReceiveCompleted
 
        Try
 
            Dim mq As System.Messaging.MessageQueue = CType(msmq, _
              System.Messaging.MessageQueue)
 
            Dim m As System.Messaging.Message = _
                                mq.EndReceive(e.AsyncResult)
            mq.Formatter = New _
               System.Messaging.XmlMessageFormatter(New String() _
               {"System.String,mscorlib"})
 
            mq.Path = ".\private$\" & nQueueName
 
            mq.BeginReceive()
 
            msgQ = m.Body
            if Not IsNothing( myQueueForm ) Then
              myQueueForm.DisplayMessage( msgQ)
            End If
 
 
        Catch x As System.Messaging.MessageQueueException
            MessageBox.Show(msmq.ErrorCode)
 
        End Try
        Return
    End Sub
End Class
 
Public Class MyForm
  Inherits System.Windows.Forms.Form
  Implements IQueueForm
    Public Sub DisplayMessage( ByVal Message As String) Implements _
      IQueueForm.DisplayMessage
  End Sub
 
End Form