[VB6] Visualizzatore Immagini: problema ridimensionamento

[Codename87]

Stò creando un piccolo programmino per visualizzare le immagini, giusto per imparare a programmare in VB6.

Il programma è praticamente fatto, però ho un problema essenziale, ovvero:

http://img411.imageshack.us/img411/3481/untitled1fx2.jpg


Spiego meglio, il problema c'è quando apro immagini più grosse delle PictureBox, ovvero vanno oltre la stessa.
Ecco, vorrei eliminare ciò nel senso che vorrei fare in modo che le immagini vengono rimpicciolite in proporzione nella PictureBox.

Ho provato ad usare una ImageBox usando lo stretch, però storpia troppo le immagini.
Come posso fare?

Ecco il codice:


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

Private Sub Drive1_Change()
Dir1.Path = Left(Drive1.Drive, 2)
End Sub

Private Sub File1_Click()
On Error Resume Next
Picture1.Picture = LoadPicture(File1.Path + "\" + File1.FileName)


End Sub

Private Sub Form_Load()
Dir1.Path = "C:\Documents and Settings\"
End Sub

Private Sub mnuEsci_Click()
End
End Sub

Private Sub mnuInformazioni_Click()
frmInfo.Show
End Sub

[Codename87]

Nessuno sà aiutarmi?

Almeno ditemi dove potrei trovare una soluzione ;)

[Codename87]

Per favoreeeeeeeeeeeeeeeeeeee!!!! :D