Visual Basic 6 - Ridimensionamento di immagine (SavePicture)

Salve, ho un problema... Sto creando un programma in grado di ridimensionare le immagini e salvarle ridimensionate, il problema però è che quando vado a salvare le immagini queste sono tagliate e non ridimensionate... sostanzialmente mi applica la dimensione giusta, ma appare soltanto la parte in alto a sinistra dell'immagine selezionata... vi posto il codice sperando che qualcuno possa aiutarmi...

Option Explicit
Dim FileSelezionato As String

Private Sub Command1_Click()
Set picGrande.Picture = Image1.Picture
picPiccola.PaintPicture picGrande.Image, 0, 0, picPiccola.Height, picPiccola.Width
Set picPiccola.Picture = picGrande.Image
SavePicture picPiccola.Image, "c:\" & File1.FileName
End Sub

Private Sub Dir1_Change()
    File1.Path = Dir1.Path
End Sub

Private Sub File1_Click()
    FileSelezionato = File1.Path & "\" & File1.FileName
    Image1.Picture = LoadPicture(FileSelezionato)
End Sub

Sul form sono presenti una FileListBox e una DirListBox tramite le quali seleziono il file, una image dove viene presentata l'anteprima del file, 2 picturebox che cerco di utilizzare per il ridimensionamento e il command button per l'evento.

hai provato ad usare un'imagebox?

si, ma il SavePicture non funziona con le image.

mm.. sicuro? io mi ricordavo di si... mo provo
EDIT: provato, funziona ma anche se si applica la proprietà stretch a true la visualizza grande.

strano .__. mi posteresti per cortesia, il codice che hai usato? a me ritorna errore se faccio il savepicture con la imagebox...

savepicture image1.picture, "C:\percorso\file.bmp"

mm... cmq prova pure con image1.image per sicurezza, adesso io non posso provare...

vero, funziona, ma nn me la stretcha ._.

guarda qua:
vb-helper.com/…


è una mia impressione o google è cambiato? nel senso che vedo textbox e button + grossi :|