ScaleImage

Public Sub Ridimensiona()
Dim proporzione As Double
'L'immagine viene temporaneamente resa invisibile

imgAnteprima.Visible = False
'La proprieta' Stretch e' disattivata per consentire

'all'immagine di assumere le dimensioni naturali

imgAnteprima.Stretch = False
imgAnteprima.Picture = LoadPicture(C:\immagini\pippo.jpg)
'Viene calcolato il rapporto larghezza/altezza

proporzione = imgAnteprima.Width / imgAnteprima.Height
'Viene riattivata la proprieta' Stretch

imgAnteprima.Stretch = True
If proporzione > 1 Then
'Se orizzontale puo' essere larga al massimo 2295 Twips

imgAnteprima.Width = 2295
'E di conseguenza sara' alta..

imgAnteprima.Height = Int(2295 / proporzione)
Else
'Se verticale puo' essere alta al massimo 2295 Twips

imgAnteprima.Height = 2295
'E di conseguenza sara' larga..

imgAnteprima.Width = Int(2295 * proporzione)
End If
'L'immagine torna visibile dopo il ridimensionamento

imgAnteprima.Visible = True
End Sub

'Modificare i valori delle proprieta' Width, Height in base

'alle dimensioni che le proprieta' del controllo Image hanno

'nella progettazione del form. Si consiglia di creare un

'controllo Image quadrato.