ecco qui un po' di codice....è il comando che crea il ridimensionamento della foto...

Private Sub Command1_Click()

On Error GoTo errore
Dim i As Integer
Dim foto As Picture
For i = 0 To File1.ListCount - 1
If File1.Selected(i) = True Then
Set foto = LoadPicture(File1.Path & "\" & File1.List(i))
Form2.Picture1.Picture = foto
Form2.Picture2.PaintPicture Form2.Picture1.Picture, 0, 0, Form1.Text1.Text, Form1.Text2.Text
SavePicture Form2.Picture2.Image, "C:\Photo" & i & ".jpg"
End If


Next i

Form2.Show


Exit Sub
errore:
MsgBox ("digitare prima le dimensioni desiderate")


End Sub






nei text box non ci sono righe di codice...nessun comando...


la picturebox si adatta alla dimensione della foto sempre tramite gli stessi text box così..

Form2.ScaleMode = Form2.Picture2.ScaleMode
Form2.Picture2.Width = Form1.Text1.Text
Form2.Picture2.Height = Form1.Text2.Text