Dim img,img2 As Image
img.Initialize(path, file)
cvsIcon.DrawImage2(img, 0,0,img.Width,img.Height,0,0, cvsIcon.Width,cvsIcon.Height)
img2 = cvsIcon.Snapshot
Dim out As OutputStream = File.OpenOutput(PrjPath & PrjName & "\", btnIcon.Tag,False)
img2.WriteToStream( out)
out.Close