using winsock email

I made an email bomber and if i try to send 20 mails or more i get disconnected. WHY?

Possible securities setup with your Mail-Server?

How can i reconnect
this is the code

VB Code:

Dim i As Integer
For i = 1 To Val(Text5.Text)
With Winsock1
.SendData "HELO " + "Josh" + NL
end with
next i
end sub

Now how can i make winsock recconnect and where do i insert it into that code?

E-mail bombers aren't nice. :(