這程式碼傳送和接收的MSDN6.0中有，在索引中鍵入winscok 控制元件，點使用 Winsock 控制元件其中關於UDP 協議是一種無連線協議，兩臺計算機之間的傳輸類似於傳遞郵件：訊息從一臺計算機發送到另一臺計算機，但是兩者之間沒有明確的連線。另外，單次傳輸的最大資料量取決於具體的網路。要建立一個 UDP 夥伴，請按照以下步驟執行： 建立一個新的 Standard EXE 工程。將預設的窗體的名稱修改為 frmPeerA。將窗體的標題修改為“Peer A”。在窗體中放入一個 Winsock 控制元件，並將其命名為 udpPeerA。在“屬性”頁上，單擊“協議”並將協議修改為 UDPProtocol。在窗體中新增兩個 TextBox 控制元件。將第一個命名為 txtSend，第二個命名為 txtOutput。為窗體增加如下的程式碼。

Private Sub Form_Load()"控制元件的名字為 udpPeerAWith udpPeerA"重點:必須將 RemoteHost 的值"修改為計算機的名字。.RemoteHost= "PeerB" .RemotePort = 1001 "連線的埠號。.Bind 1002 "繫結到本地的埠。End WithfrmPeerB.Show "顯示第二個窗體。End SubPrivate Sub txtSend_Change()"在鍵入文字時，立即將其傳送出去。udpPeerA.SendData txtSend.TextEnd SubPrivate Sub udpPeerA_DataArrival _(ByVal bytesTotal As Long)Dim strData As StringudpPeerA.GetData strDatatxtOutput.Text = strDataEnd Sub

要建立第二個 UDP 夥伴，請按照以下步驟執行：在工程中新增一個標準窗體。將窗體的名字修改為 frmPeerB。將窗體的標題修改為“Peer B”。在窗體中放入一個 Winsock 控制元件，並將其命名為 udpPeerB。在“屬性”頁上，單擊“協議”並將協議修改為“UDPProtocol”。在窗體上新增兩個 TextBox 控制元件。將第一個命名為 txtSend，第二個命名為 txtOutput。在窗體中新增如下的程式碼。

Private Sub Form_Load()"控制元件的名字為 udpPeerB。With udpPeerB"重點:必須將 RemoteHost 的值改為"計算機的名字。.RemoteHost= "PeerA".RemotePort = 1002 "要連線的埠。.Bind 1001 "繫結到本地的埠上。End WithEnd SubPrivate Sub txtSend_Change()"在鍵入後立即傳送文字。udpPeerB.SendData txtSend.TextEnd SubPrivate Sub udpPeerB_DataArrival _(ByVal bytesTotal As Long)Dim strData As StringudpPeerB.GetData strDatatxtOutput.Text = strDataEnd Sub