Private Sub btnConsultaProc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConsultaProc.Click Cursor = Cursors.AppStarting lblStatus.Text = "Aguarde..." btnConsultaProc.Enabled = False txtConsProces.Text = New nfecsharp().NfeRetRecepcao(textBox1.Text) btnConsultaProc.Enabled = True lblStatus.Text = "Concluído." Cursor = Cursors.Default End Sub