how to make an email spammer in VB 2008

http://bit.do/bTdKy 50% discount at Atomic Mail software
****read the description**** add &fmt=18 for high quality this is a video showing how to make an automatic email spammer the code for the imporatnt bit without my loop counter: Dim smtpserver As New SmtpClient() Dim mail As New MailMessage() smtpserver.Credentials = New Net.NetworkCredential(TextBox1.Text, TextBox2.Text) smtpserver.Host = ComboBox1.Text smtpserver.Port = TextBox4.Text mail = New MailMessage mail.From = New MailAddress(TextBox1.Text) mail.To.Add(TextBox5.Text) mail.Subject = TextBox6.Text mail.Body = TextBox7.Text smtpserver.EnableSsl = True Try smtpserver.Send(mail) Catch ex As SmtpException MsgBox("either you typed something wrong or something is wrong with the program...most likely it was something you typed so try again") Timer1.Stop() End Try sorry i forgot to add in the video on the top of the coding page above where it would say "public class form1" u need to put "imports system.net.mail" if your unsure where to put it look at the video at 1:12 and it will be at the top of the coding page http://www.e-eeasy.com/SMTPServerList.aspx is the list of free smtp servers you can use