[Gambas-bugtracker] Bug #2564: Mouse pointer is not switched

[bugtracker at gambaswiki.org]

http://gambaswiki.org/bugtracker/edit?object=BUG.2564&from=L21haW4-

Comment #2 by Gianluigi GRADASCHI:

You should write the code like this:

Public Sub btnPingOverShell_Click()

  Dim sCommand As String
  Dim sProgramName As String = "ping"

  TextArea.Clear

  FMain.Mouse = Mouse.Wait
  Wait
  sCommand = sProgramName & Chr(32) & TextBox1.Text & " -c 4"
  Shell sCommand To TextArea.Text
  TextArea.Text = gb.newline & TextArea.Text
  Wait
  FMain.Mouse = Mouse.Default

End ' PingOverShell

Regards