home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2005 July / PCpro_2005_07.ISO / files / freeware / hardcopy / hcf.exe / basic / Basic_Image_005_Open.bas < prev    next >
Encoding:
BASIC Source File  |  2003-11-26  |  168 b   |  10 lines
  1.  
  2. File.Find( File.CommonWindowsDirectory + "\\*.bmp"  )
  3. For i = 0 To File.NumberOfElements - 1
  4.     Image(0).Open( File( i ).Path )    
  5.     Sleep( 500 )
  6.     Redraw()
  7. Next
  8.  
  9.  
  10.