'---------------------------------------------------------------
'				Paste2Th.vbs
' Replace the thumbnail of the current picture with the content
' of the Windows clipboard.
'---------------------------------------------------------------


Option Explicit

dim alb, pic
set alb = app.GetCurrentAlbum
set pic = alb.GetVisiblePicture( alb.nCurrentPicture )
pic.pasteToThumbnail True
alb.ReDraw