<form id="form1" runat="server">
    <div>
        <asp:FileUpload ID="FileUpload1" runat="server" />
        <br /><br />
        <asp:Button ID="Button1" runat="server" Text="Invia" />
        <hr />
        <asp:Literal ID="Literal1" runat="server"></asp:Literal>
    </div>
    </form>

Option Strict On

Partial Class prove_a
    Inherits System.Web.UI.Page

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        'ricavo il nome del file con percorso 
        Dim strFile As String = Me.FileUpload1.PostedFile.FileName

        'ricavo il nome del file senza percorso 
        Dim strNomeFile As String = Path.GetFileName(strFile)

        'percorso di upload 
        Dim strPercorsoFileUpload As String = "c:\tmp"

        'file trasferito 
        Dim strPercorsoFileUploadFile As String = Path.Combine(strPercorsoFileUpload, strNomeFile)

        'salvataggio 
        Me.FileUpload1.PostedFile.SaveAs(strPercorsoFileUploadFile)

        'nome miniatura
        Dim nomeMiniatura As String = Path.GetFileNameWithoutExtension(strNomeFile) & "_miniatura" & Path.GetExtension(strNomeFile)

        'nome completo di percorso per la miniatura
        Dim nomeMiniaturaConPercorso As String = Path.Combine(strPercorsoFileUpload, nomeMiniatura)

        'salvo l'immagine originale e la miniatura
        ResizeAndSave(Me.FileUpload1.PostedFile.InputStream, 300, nomeMiniaturaConPercorso)


        'mostro l'immagine ridotta
        Me.Literal1.Text = String.Format("<img src=""/tmp/{0}""  />", nomeMiniatura)


    End Sub



    Private Sub ResizeAndSave(ByVal imgStr As Stream, ByVal dimMax As Integer, ByVal FileName As String)
        'creo il bitmap dallo stream 
        Dim bmpStream As System.Drawing.Image = System.Drawing.Image.FromStream(imgStr)

        Dim w As Integer = bmpStream.Width
        Dim h As Integer = bmpStream.Height

        'data la dimensione massima, imposto larghezza o altezza
        'a seconda se l'immagine è orizzontale o verticale
        'poi calcolo l'altro lato in proporzione
        Dim width, height As Integer
        If w >= h Then
            width = dimMax
            height = Convert.ToInt32(CDbl(width) * CDbl(h) / CDbl(w))
        Else
            height = dimMax
            width = Convert.ToInt32(CDbl(height) * CDbl(w) / CDbl(h))
        End If


        'creo un nuovo bitmap ridimensionandolo 
        Dim img As New Bitmap(bmpStream, New Size(Width, Height))

        'salvo l'immagine ridimensionata 
        img.Save(FileName, System.Drawing.Imaging.ImageFormat.Jpeg)

    End Sub

End Class