ASPPainter::Thumbnail::Thumbnail.vbs

							
'============================================================
'Sample Thumbnail.vbs
'============================================================

Dim pic 
Set pic = CreateObject("ASPPainter.Pictures.1") 
pic.SetBKColor 255,0,0,255 
pic.Create 200,250 

pic.SetImageIndex 1 
pic.SetBKColor 255,0,0,255 
pic.LoadFile "C:\flower.gif" 
w = pic.Width 
h = pic.Height 
pic.MakeThumbnail w/2,h/2 
pic.SetFormat 3 
pic.SaveToFile "C:\thumbnail.gif" 
pic.DestroyALL 

Set pic = Nothing

Picture 1. thumbnail.gif

See also:

LoadFile, Width, Height , MakeThumbnail , SetFormat , SaveToFile , DestroyALL