ce l'ho fatta, usando il metodo copy dell'oggetto File

codice:
<%@ Import Namespace="System.Drawing"%>
<%@ Import Namespace="System.IO"%>
<%@ Import Namespace="System.Drawing.Imaging"%>
<SCRIPT RUNAT="SERVER" language="vb" >
Sub Page_Load()

	Dim width as Integer = Request.QueryString("w")
	Dim height as Integer = Request.QueryString("h")
    Dim nome as String=Request.QueryString("n")
	dim propertiI as String=Request.QueryString("p")
	dim idestate as String=Request.QueryString("i")

	' ridimensiona l''immagine se specificat'
	
	Dim immagine as String = server.MapPath("/images/properties/" & nome)

	call ImgRedim(immagine, width, height, nome, propertiI, idestate)

	End Sub

' Funzione di redim'
Public Sub ImgRedim(immagine as String, width as Integer, height as Integer, nome as String, propertiI as String, idestate as String)
	Dim bmp as System.Drawing.Bitmap = CType(System.Drawing.Image.FromFile(immagine), System.Drawing.Bitmap)

		' creo la Thumbnail con i parametri impostati'
		Dim miniaturabmp as New System.Drawing.Bitmap(bmp, width, height)
		dim immagine1 as String
		dim newImmagine as String
		dim temp as String


		' salvo sullo stream di output'
		if immagine.EndsWith(".jpg") or immagine.EndsWith(".jpeg") Then
		
temp="temp.jpg"
immagine1=server.MapPath("/images/properties/" & temp) 
miniaturabmp.Save(immagine1, ImageFormat.JPEG)
miniaturabmp.Dispose()
bmp.Dispose()
File.Delete(immagine)
newImmagine=server.MapPath("/images/properties/" & nome)
File.Copy (immagine1, newImmagine,true)
File.Delete(immagine1)
			
	        else
			
temp="temp.gif"
immagine1=server.MapPath("/images/properties/" & temp) 
miniaturabmp.Save(immagine1, ImageFormat.GIF)
miniaturabmp.Dispose()
bmp.Dispose()
File.Delete(immagine)
newImmagine=server.MapPath("/images/properties/" & nome)
File.Copy (immagine1, newImmagine,true)
File.Delete(immagine1)

		end if


End Sub

</SCRIPT>