Pessoal,

da pra colocar uma progressbar no código abaixo?

Esse código dispara um email, queria criar alguma lógica q fizesse o usuário aguardar o código rodar, para depois encerrar o form.

Sub EnviarEmailCDO()

    Dim oMensagem As Object
    Dim oConfiguração As Object
    Dim sCorpo As String
    Dim vFields As Variant

    Set oMensagem = CreateObject("CDO.Message")
    Set oConfiguração = CreateObject("CDO.Configuration")

        oConfiguração.Load -1 'Padrões CDO
        Set vFields = oConfiguração.Fields
        With vFields
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
            
            'Se quiser enviar um e-mail pelo GMail, substiua a linha acima por:
           
           .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
           ' .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"

           ' .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
           ' .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
            
             .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
             .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
             .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = "true"
            
            
          
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "welington@gmail.com"
            .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "XXXX"
            .Update
        End With

    sCorpo = "Solicitante:" & " " & frm_Cadastro.cmb_setor.Text & " " & vbNewLine & _
      vbNewLine & "Material Cadastrado:" & " " & frm_Cadastro.txt_cod_sap_CADASTRADO.Text & vbNewLine & _
      "Descrição Técnica:" & " " & frm_Cadastro.txt_desc_tecnica.Text & vbNewLine
     ' "linha3" & vbNewLine & _
     ' "linha4" & vbNewLine
      
    With oMensagem
        Set .Configuration = oConfiguração
        .To = frm_Cadastro.txt_email ' "fulano@gmail.com"  'mude aqui para alterar o destinatário
        .CC = "" 'com cópia
        .BCC = "" 'com cópia oculta
        .From = """cadastro"" <fulano@gmail.com>"
        .Subject = "Solicitação de Cadastro"
        .TextBody = sCorpo
        .Send
    End With


End Sub