home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2005 July / PCpro_2005_07.ISO / files / freeware / hardcopy / hcf.exe / basic / Basic_Settings_001.bas < prev    next >
Encoding:
BASIC Source File  |  2003-11-26  |  430 b   |  15 lines
  1. saveH = Settings(0).NumberImagesHorizontal                 ' Save Settings
  2. if saveH < 6 Then Settings(0).NumberImagesHorizontal = 6
  3.  
  4. File.Limit = 100
  5. File.Find( File.CommonWindowsDirectory + "\\*.bmp"  )
  6. For i = 0 To File.NumberOfElements - 1
  7.     newImage = CreateImage( 1,1 )
  8.     rc = Image( newImage ).Open( File( i ).Path )
  9.     Redraw()
  10. Next
  11.  
  12. Redraw()
  13. Sleep( 3000 )
  14. Settings(0).NumberImagesHorizontal = saveH                ' Restore Settings
  15.