Private Sub RicavaImmagine(ByVal Immagine As Drawing.Image, _
                                    ByVal NomeFile As String, _
                                    ByVal Altezza As Integer, _
                                    ByVal larghezza As Integer, _
                                    ByVal FormatoImmagine As System.Drawing.Imaging.ImageFormat)


        Dim larg As Integer = 9488
        Dim alt As Integer = 4648

        Dim nuova_immagine As New Bitmap(751, 390)
        Dim rect As New Rectangle(0, 0, larg, alt)
        ImgClip(nuova_immagine, rect)

        Dim temp As Graphics = Graphics.FromImage(nuova_immagine)
        temp.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
        temp.DrawImage(Immagine, New Drawing.Rectangle(0, 0, larg, alt), New Drawing.Rectangle(0, 0, larg, alt), GraphicsUnit.Pixel)

        Dim ultima As New Bitmap(751, 390)
        Dim temp2 As Graphics = Graphics.FromImage(ultima)
        temp2.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
        temp2.DrawImage(nuova_immagine, 0, 0, 751, 390)


        ultima.Save(NomeFile, FormatoImmagine)
        'riliasciare gli oggetti caricati in memoria
        temp.Dispose()
        temp2.Dispose()
        nuova_immagine.Dispose()
        ultima.Dispose()

    End Sub