提供一下VB.NET消息队列示例代码

以下是一个VB.NET的消息队列示例代码：

Imports System.Messaging

Public Class MessageQueueExample
Private queueName As String = ".\Private$\TestQueue"
Private myQueue As New MessageQueue(queueName)

Public Sub SendMessage(ByVal messageBody As String)
myQueue.Send(messageBody)
End Sub

Public Sub ReceiveMessage()
Dim myMessage As Message = myQueue.Receive()
MsgBox(myMessage.Body)
End Sub
End Class

在这个示例中，我们使用了System.Messaging命名空间来创建消息队列，并且定义了一个SendMessage()方法和一个ReceiveMessage()方法来发送和接收消息。当我们调用SendMessage()方法时，它将消息发送到队列中。当我们调用ReceiveMessage()方法时，它将从队列中接收消息并在弹出的消息框中显示出来。