home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 11 / CDACTUAL11.iso / cdactual / demobin / share / os2 / VPREVAL / THREADS._ / 1000.0 next >
Encoding:
Text File  |  1994-02-17  |  288 b   |  9 lines
  1. Arg window self
  2.  
  3. /* Start a thread, thread to end when count reaches 1000 */
  4. tid1 = VpThread("START", 0,"THREAD1.CMD",window, 1001,1000)
  5. if tid1='' then response=VpMessageBox(window,'','Error creating thread')
  6.  
  7. /* Select item REFRESH Push Button */
  8. CALL VpSelect window,'REFRESH'
  9.