Pseudo-ProgressBar in un'applicazione 'a riga di comando'

Se si scrivendo un'applicazione a riga di comando (quindi senza supporto grafico), evidentemente non sarà possibile utilizzare l'oggetto grafico ProgressBar. Per ottenere, allora, in console/Terminale un effetto simile ad una ProgressBar, può essere utilizzata una soluzione, che adopera ovviamente caratteri, simile alla seguente:

Public Sub Main()
 
 Dim b As Byte
 
 For b = 1 To 50
   Inc c
   Write "\r" & String(b, "=") & "]" & Space(51 - b) & CStr(c) & "%"
   Flush
   Wait 0.1
   Inc c
   Write "\r" & String(b, "=") & "]" & Space(51 - b) & CStr(c) & "%"
   Flush
   Wait 0.1
 Next
  
End