Dominex non conoscevo loadbitmapsample. ottimo risolto il tutto
carico l'immagine e la salvo con le impostazioni che mi servono
Sub testa_immagine(v_path As String , v_file As String )
Dim out As OutputStream
Dim bmp As Bitmap
bmp=LoadBitmapSample(v_path, v_file,280,150)
out = File.OpenOutput(Main.dbFilePathPanPDF, s.Trim(txtCodice.Text) & ".Jpg", False)
bmp.WriteToStream(out, 100, "JPEG")
bmp.w
lblNomeImmgine.Text =s.Trim(txtCodice.Text) & ".Jpg"
End Sub
Garzieeeee 10*10*10
Mamo