Mine

Private Sub txtCmd_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtCmd.Enter
        If Ssh.Connected = True Then
            If txtCmd.Focused = True Then
                Try
                    Ssh.Execute(txtCmd.Text)
                    Dim stdo As New nsoftware.IPWorksSSH.SshellStdoutEventArgs
                    txtLog.AppendText(stdo.Text)
                Catch err As Exception
                    txtLog.AppendText(err.Message)
                End Try
            End If
        End If
    End Sub