home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2005 July / PCpro_2005_07.ISO / files / freeware / hardcopy / hcf.exe / basic / Basic_Image_006_DrawImageFade.bas < prev    next >
Encoding:
BASIC Source File  |  2004-02-26  |  169 b   |  10 lines
  1.  
  2. v = CreateImage( 1,1 )    
  3. Image( v ).Open( File.CommonWindowsDirectory + "\\winnt.bmp" )
  4.  
  5. Image(0).DrawImageFade( 300,200, 128, v )
  6.  
  7. Image(v).Delete()
  8.  
  9. Redraw()
  10.