Public Sub Form_Open() TextAreaResultado.ReadOnly = True End Public Sub Button1_Click() Dim resultado As Process resultado To TextAreaResultado.ReadOnly = Exec ["curl", "https://www.kernel.org/finger_banner"] As "resultado" End Private Sub resultado_Read(resultado As String) 'saida de leitura correcta Print "resultado_Read & resultado" End Private Sub resultado_Error(resultado As String) 'se houver erro em leitura Print "resultado_Error & resultado" End Public Sub resultado_Kill() Print "Terminado" End Public Sub TextAreaResultado_ReadOnly() End