Private Sub cmd_sendata_Click()
    UDP_Client.SendData txt_data.Text
End Sub
 
Private Sub cmd_SetServer_Click()
    On Local Error Resume Next
        UDP_Server.Close
        UDP_Server.Bind txt_LocalPort.Text
    On Local Error GoTo 0
End Sub
Private Sub Form_Load()
    UDP_Server.Protocol = sckUDPProtocol
    UDP_Client.Protocol = sckUDPProtocol
 
    UDP_Server.Bind txt_LocalPort.Text
    lbl_BindedPort.Caption = txt_LocalPort.Text
 
 
End Sub
 
Private Sub txt_LocalPort_Change()
    On Local Error Resume Next
        UDP_Server.Close
        UDP_Server.Bind txt_LocalPort.Text
        lbl_BindedPort.Caption = txt_LocalPort.Text
    On Local Error GoTo 0
End Sub
 
Private Sub txt_RemoteHost_Change()
    UDP_Client.RemoteHost = txt_RemoteHost.Text
End Sub
 
Private Sub txt_RemotePort_Change()
    UDP_Client.RemotePort = txt_RemotePort.Text
End Sub
 
Private Sub UDP_Server_DataArrival(ByVal bytesTotal As Long)
    Dim strData As String
    UDP_Server.GetData strData
    MsgBox strData
End Sub