Italian SOS UDP

Sub cmdSend_Click
    If bConnected = False Then
        Error("Errore connessione", "Server non inizializzato.")
        Return
    End If
    
    UDP_Send(UDPSocket1, txtSend.text , txtIPAddress.Text, txtPort.text)
End Sub

Sub UDP_Send(socketa As UDPSocket, command As String, ipaddress As String, port As String)
    Dim Packet As UDPPacket
    Dim data() As Byte
    data = command.GetBytes("UTF8")
    Packet.Initialize(data, ipaddress, port)
    socketa.Send(Packet)

    'Log(Packet)
End Sub

UDPSocket1.Initialize("UDP", txtPort.text, txtBufferSize.text)
    bConnected = UDPSocket1.IsInitialized
   
    If bConnected = True Then
        lblStatus.Text = MyLan.GetMyIP & "-Status: UDP attivo..."
    Else
        lblStatus.Text = MyLan.GetMyIP & "-Status: UDP Errore..."
    End If
    Activity.Title = "UDP pronto"