home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 March / Chip_2004-03_cd1.bin / software / slunec / app / 6157_8185.exe / {app} / Basic / Progress / Progress.bas next >
Encoding:
BASIC Source File  |  2003-11-07  |  202 b   |  14 lines
  1. Output("Progress bar example")
  2.  
  3. ProgressBar.Min = Min
  4. ProgressBar.Max = Max
  5.  
  6. FOR a = ProgressBar.Min TO ProgressBar.Max
  7.     FOR b = 1 TO Pause
  8.     NEXT
  9.  
  10.     ProgressBar.Position = a
  11. NEXT
  12.  
  13.  
  14.