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