ciao,
ho trovato questa funzione dopo giorni e giorni di ricerca:
codice:
Private Sub 'Insert your sub here
Dim compression As Long = tbQuality.Value
Dim myImageCodecInfo As System.Drawing.Imaging.ImageCodecInfo
Dim myEncoder As System.Drawing.Imaging.Encoder
Dim myEncoderParameter As System.Drawing.Imaging.EncoderParameter
Dim myEncoderParameters As System.Drawing.Imaging.EncoderParameters

myImageCodecInfo = GetEncoderInfo("image/jpeg")
myEncoder = System.Drawing.Imaging.Encoder.Quality
myEncoderParameters = New System.Drawing.Imaging.EncoderParameters(1)
myEncoderParameter = New System.Drawing.Imaging.EncoderParameter(myEncoder,compression)
myEncoderParameters.Param(0) = myEncoderParameter

'Save image held in a picture box
PictureBox1.Image.Save(strFilePath, myImageCodecInfo, myEncoderParameters)

End Sub

Private Function GetEncoderInfo(ByVal MYmimeType As String)
Dim i As Integer
Dim encoders As System.Drawing.Imaging.ImageCodecInfo() = System.Drawing.Imaging.ImageCodecInfo.GetImageEncoders
For i = 0 To (encoders.Length - 1)
If (encoders(i).MimeType = MYmimeType) Then
Return encoders(i)
End If
Next i
End Function
ora chiedo un vostro aiuto per adattarla un pochino visto che sto impazzendo.
Io dovrei utilizzare la compressione quando vado a salvare la mia Thumb che mi credo sul server.

questi sono i parametri che ho nella funzione thumb

objGraphics.Save(path & "thumb" & myUName)


chi mi aiuta?