codice:
 Dim I As Image = Image.FromFile(Server.MapPath(<nomeFileimmagine>))
 Dim K As Image = I.GetThumbnailImage(<larghezza>, <altezza>, AddressOf MySub, IntPtr.Zero)
 K.Save(Server.MapPath(<NuovoPercorso>))
  End Sub

  Private Function MySub() As Boolean
'lascia pure vuoto
  End Function
Ciao, javalon