THREADS

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim vFal, vSuc As Integer
        Dim vErro, vImg As String
        Dim t As Thread
        If (TXT_IMG.Text = Nothing) Then
            vImg = [Ô]C:\WINDOWS\prc.jpg[Ô]
        Else
            vImg = TXT_IMG.Text
        End If
        If (TXT_ASSUNTO.Text = Nothing Or ri.Text = Nothing) Then
            MsgBox([Ô]O campo do Assunto e da Mensagem nao podem ser nulos.[Ô], MsgBoxStyle.Critical, [Ô]Campos vazios[Ô])
        Else
            Try
[txt-color=#007100][ô]CONVERT RICHTEXT PRA HTML[/txt-color]
                TXT_MSG.Text = HTML(ri.Rtf)
[txt-color=#007100][ô]ENTRA NO LAÇO NORMALMENTE...[/txt-color]
                For i As Integer = 0 To LST_ENVIAR_PARA.Items.Count - 1
[txt-color=#007100][ô]PREEENCHE AS VARIAVEIS DO CONSTRUTOR DA CLASSE DE ENVIO DOS EMAILS[/txt-color]
                    Dim C_ENVIA As New C_ENVIA_EMAIL(prEmail, TXT_ASSUNTO.Text, TXT_MSG.Text, prSenha, prPorta, prSmtp, prSsl, LST_ENVIAR_PARA.Items(i), vErro, vImg)
[txt-color=#007100][ô] METE A TRHEAD NA MEMORIA JUNTO UM DELEGATE PRA PROCEDURE DENTRO DA CLASSE ENVIA_EMAIL_PROC[/txt-color]
                    t = New Thread(AddressOf C_ENVIA.Envia_email_proc)
[txt-color=#007100][ô]EXECUTA EM SEGUNDO PLANO[/txt-color]
                    t.IsBackground = True
[txt-color=#007100][ô]AQUI JÁ ERA PRA EXECUTAR A PROCEDURE,NAO!?!?![/txt-color]
                    t.Start()
[txt-color=#007100][ô]ERRO PASSADO PELA CLASSE COMO REFERENCIA CASO O HAJA [/txt-color]
                    If (vErro = Nothing) Then
[txt-color=#007100][ô]EMAILS ENVIADOS COM SUCESSO[/txt-color]
                        LST_ENVIADOS.Items.Add(LST_ENVIAR_PARA.Items(i) & [Ô] √[Ô])
                        vSuc += 1
                    Else
[txt-color=#007100][ô]PROBLEMA NO ENVIO DOS EMAILS[/txt-color]
                        LST_ERRO.Items.Add(LST_ENVIAR_PARA.Items(i) & [Ô] X Erro: [Ô] & vErro)
                        vFal += 1
                    End If
[txt-color=#007100][ô]O NEXT é PASSADO COMO NEM ESTIVESSE AQUI =\ O LAÇO NAO é EXECUTADO,VAI DIRETO PRO END SUB[/txt-color]
                Next
                MsgBox([Ô]Tarefa concluida com [Ô] & vFal & [Ô] falha(s) e [Ô] & vSuc & [Ô] sucessos de [Ô] & LST_ENVIAR_PARA.Items.Count & [Ô] tentativas.[Ô], MsgBoxStyle.Information, [Ô]Tarefa concluida[Ô])
[txt-color=#007100][ô]NEM NO CATCH CAI!!!!![/txt-color]
            Catch ex As Exception
                MsgBox([Ô]Erro: [Ô] & Err.Description, MsgBoxStyle.Critical, [Ô]Erro[Ô])
            End Try
        End If
[txt-color=#007100][ô] DEPOIS DAQUI ELE VAI PRA PROCEDURE MAS JA NO FINAL,NAO PASSA POR VALIDAÇOES DE ERROS NEM NADA =\[/txt-color]
    End Sub  

   Dim vEmailRemete, vAssunto, vMsg, vSenha, vPorta, vSmtp, vSsl, vDestino, vErro, vImg As String

    Public Sub New(ByVal pEmailRemete As String, ByVal pAssunto As String, ByVal pMsg As String, ByVal pSenha As String _
                                  , ByVal pPorta As String, ByVal pSmtp As String, ByVal pSsl As String _
                                  , ByVal pDestino As String, ByRef pErro As String, ByVal pImg As String)
        vEmailRemete = pEmailRemete
        vAssunto = pAssunto
        vMsg = pMsg
        vSenha = pSenha
        vPorta = pPorta
        vSmtp = pSmtp
        vSsl = pSsl
        vDestino = pDestino
        vErro = pErro
        vImg = pImg
    End Sub

    Public Sub Envia_email_proc()
        Try
            Dim mail As New Mail.MailMessage
            mail.From = New MailAddress(vEmailRemete)
            mail.To.Add(vDestino)
            mail.Subject = vAssunto
            Dim vw As AlternateView
            vw = AlternateView.CreateAlternateViewFromString(vMsg & [Ô] <br><br><center><img src=[Ô][Ô]cid:imagem[Ô][Ô]></center><br><hr><br>[Ô] & FRM_PRINCIPAL.TXT_ASS.Text, Nothing, [Ô]text/html[Ô])
            Dim logo As New LinkedResource(vImg)
            logo.ContentId = [Ô]imagem[Ô]
            vw.LinkedResources.Add(logo)
            mail.AlternateViews.Add(vw)
            Dim smtp As New SmtpClient(vSmtp)
            smtp.EnableSsl = True
            smtp.Port = vPorta
            smtp.Credentials = New NetworkCredential(vEmailRemete, vSenha)
            smtp.Send(mail)
        Catch ex As Exception
            vErro = Err.Description
        End Try
    End Sub