home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 November / CPNL0711.ISO / beeld / screen / hcf.exe / Basic / Basic_Image_005_Open.bas < prev    next >
BASIC Source File  |  2003-11-26  |  168b  |  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.