Dim email As String = RichTextBox1.Text ' wenn checkbox nicht aktiv
Dim empfänger As String = TextBox4.Text
Dim Betreff As String = TextBox5.Text
ProgressBar1.Value = 10
For i = 2 To NumericUpDown1.Value
Dim myclient As New Net.Mail.SmtpClient(TextBox3.Text)
ProgressBar1.Value = 30
myclient.Credentials = New Net.NetworkCredential(TextBox1.Text, TextBox2.Text)
ProgressBar1.Value = 45
myclient.Send(TextBox1.Text, empfänger, Betreff, email)
ProgressBar1.Value = 100
Next
MsgBox("Spam erfolgreich gesendet", MsgBoxStyle.Information, "Erfolgreich")