Private Sub btnConsultaRps_Click(sender As Object, e As EventArgs) Try Cursor = Cursors.WaitCursor btnConsultaRps.Enabled = False Dim nfse As New asscshnfse.asscshnfse() txtRetCsRps.Text = nfse.WsConsultaLoteRps(txtProtRps.Text) Finally btnConsultaRps.Enabled = True Cursor = Cursors.[Default] End Try End Sub