Sub UDP_Sent (Str As String, remoteIP As String)
Connection_Timer.Enabled=False
Dim Data() As Byte
If UDP_Skt.IsInitialized=False Then
UDP_Skt.Initialize("UDP", 4211, 255)
End If
Data=Str.GetBytes("UTF8")
UDP_Pkt.Initialize(Data, remoteIP, 4210)
UDP_Skt.Send(UDP_Pkt)
End Sub