Dim retCsRPS As String = String.Empty If cklTrans.GetItemChecked(1) And (go = True) Then If nProt <> String.Empty Then go = False txtLogTrans.Text += "Método: nfse.WsConsultaLoteRps." & vbCr & vbLf txtLogTrans.Text += "5 segundos de espera, aguarde." & vbCr & vbLf Application.DoEvents() Thread.Sleep(5000) retCsRPS = nfse.WsConsultaLoteRps(nProt) txtLogTrans.Text += "#RETORNO: " & retCsRPS & vbCr & vbLf & vbCr & vbLf End If End If