如何在邮件队列中接收邮件以列出

Question

我想在消息队列中显示我的消息，以便一次接一个地接收消息，而不是一次接收所有消息，因此我希望将所有消息都保留在数组中，并按每个循环显示它们，但是它无法工作。它从所有消息中仅收到一条消息，我该如何接收并一一显示？

    Dim lstClient As New List(Of String)

    lstClient.Add(mq.Receive().Body.ToString())
    For Each Message In lstClient
        Label1.Text = mq.Receive.Body.ToString()
        'MessageBox.Show(mq.Receive.Body.ToString())
        Timer1.Interval = 10000
        Timer1.Start()
    Next

    mq.Receive()
    lstClient.Clear()