Public Sub nQueue_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
 
        Catch x As System.Messaging.MessageQueueException
            MessageBox.Show(msmq.ErrorCode)
 
        End Try
        Return
    End Sub

---------------------------------------------------------------
Mal verliert man, mal gewinnen die anderen