Public Sub Form_Open()
  Dim ruta As String
  pBash = TerminalView1.Exec(["bash"])
  ruta = TerminalView1.Input("pwd").Split("\n")[0]
  If ruta.EndsWith("\n") Then
    ruta = ruta[0, ruta.Length - 1]
  End If
  TextBox1.Text = ruta
End'Requiere gb.desktop & gb.form.terminal
pBash As Process
Public Sub Button1_Click()
  Dim ruta As String
  pBash = TerminalView1.Exec(["bash"])
  TerminalView1.SetFocus
  Desktop.SendKeys("pwd" & gb.NewLine)
  Wait 0.25
  ruta = TerminalView1.Text
  TextBox1.Text = Split(ruta, gb.NewLine)[1]
  Desktop.SendKeys("clear" & gb.NewLine)
End