【求助】關於廣播程式的

各位大大…
請問一下
你們知道那邊可以找到在智慧型裝置使用的廣播程式嗎
我自已有做出pc版的可是換到<vs2005 vb>智慧型裝置上就不行了
下面是我的程式碼：
它出現下面三個錯誤，或大大可以教我怎麼改ConfigurationSettings.AppSettings元件

Imports System.Net
Imports System.Net.Sockets
Imports System.Threading
Imports System.Text
Imports System.Object
Imports System.Configuration
Imports System.Configuration.Assemblies
Imports System.Collections.Specialized
Public Class Form1
Private uc As UdpClient
Private LocalPort As Integer
Private RemotePort As Integer
Private GroupAddress As IPAddress
Private remotEndPt As IPEndPoint
Private rT As Threading.Thread
Private bKeepRunning As Boolean = True
Private cKeepRunning As Boolean = True
Private stri_dus As String
Private str_dus As String
Private class_rb() As String
Private class_st() As String
Private ttl As Integer
Public encoding As System.Text.UnicodeEncoding = New System.Text.UnicodeEncoding
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try


Dim nameValueCollection As NameValueCollection

nameValueCollection = ConfigurationSettings.AppSettings
GroupAddress = IPAddress.Parse(nameValueCollection("GroupAddress"))
LocalPort = Int32.Parse(nameValueCollection("LocalPort"))
RemotePort = Int32.Parse(nameValueCollection("RemotePort"))
ttl = Int32.Parse(nameValueCollection("TTL"))
uc = New UdpClient(LocalPort)
remotEndPt = New IPEndPoint(GroupAddress, RemotePort)

rT = New Thread(AddressOf Receving)
rT.Start()
Catch
MessageBox.Show(Me, "configuration file error.", "Multicast Infrastructure Error", MessageBoxButtons.OK, MessageBoxIcon.Hand)

End Try
End Sub
Public Sub Receving()
Try

While bKeepRunning
Thread.Sleep(2000)

Dim data() As Byte = uc.Receive(remotEndPt)

Dim strData As String = encoding.GetString(data, 0, data.Length)
TextBox1.Text = "接收電子折價券..."


ListBox1.Items.Add(strData )

End While
Catch ex As Exception
RaiseEvent Sock_Error(ex.ToString)
End Try

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
uc.JoinMulticastGroup(GroupAddress, ttl)
MessageBox.Show("啟動接收折價券")

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
uc.DropMulticastGroup(GroupAddress)
uc.Close()
rT.Abort()
TextBox1.Text = ""
MessageBox.Show("停止接收折價券")
End Sub
End Class