如何创建不会使程序崩溃的UDP侦听器？

Question

您好我正在制作火灾报警程序。目前我正在实施网络代码。 我每次运行程序时都使用了来自msdn site的代码，它只会坐下来加载。 下面是我正在使用的当前代码。

   Public Shared Sub StartListener()
    Dim done As Boolean = False
    Dim listener As New UdpClient(listenPort)
    Dim groupEP As New IPEndPoint(IPAddress.Any, listenPort)
    Try
        While Not done
            Dim bytes As Byte() = listener.Receive(groupEP)
            If Encoding.ASCII.GetString(bytes, 0, bytes.Length) = "FIRE" Then
                My.Computer.Audio.Play(My.Resources.firealarm, AudioPlayMode.BackgroundLoop)
            End If
        End While
    Finally
        listener.Close()
    End Try
End Sub 'StartListener

这个程序是无服务器的