Sub Button1_Click
For i=0 To 100
UDPSocket1.Initialize("UDP", 0, 2048)
Dim Packet As UDPPacket
Dim data() As Byte
If i==0 Then
data = "Start".GetBytes("UTF8")
Else
data = $"${i}"$.GetBytes("UTF8")
End If
Packet.Initialize(data, "79.54.92.196", 12000)
UDPSocket1.Send(Packet)
Sleep(300)
Next
End Sub