[Vb2008] หมดปัญญาแล้วมาช่วยแก้ไขโค้ดโปรแกรมทีครับ พี่ๆมาช่วยกันหน่อยนะครับ

For i As Integer = 0 To Me.ListBox1.Items.Count - 1  ' <<<< ลูป
   Dim htmail As New MailMessage
   With htmail
                .From = New MailAddress("" + TextBox3.Text + "")   ' <<<<  ผู้ส่ง
                .To.Add("" + Me.ListBox1.Items(i).ToString + "")       ' <<<<  ผู้รับ
                .Subject = ("" + TextBox2.Text + "")
                .Body = ("To You : " & TextBox1.Text)
   End With
   Dim SMTPServer As New SmtpClient("" + ComboBox1.Text + "")
   SMTPServer.Port = 587
   SMTPServer.Credentials = New System.Net.NetworkCredential("" + TextBox3.Text + "", "" + TextBox4.Text + "")
   SMTPServer.EnableSsl = True
   SMTPServer.Send(htmail)

   Try
                MsgBox("ส่งสำเร็จ")
   Catch ex As Exception
                MsgBox("Failed Login")
   End Try

Next ' <<<<< ปิด Loop