Come si rimpicciolisce un'immagine?
Te l'ho appena detto!

Esempione:
codice:
'Fattore di riduzione
Dim Riduz as Single
Dim Img as stdPicture

'Al load del form
Private Sub Form_Load()
'Carica il file Immagine.bmp nella cartella
'del programma
Img = LoadPicture(App.Path & "\Immagine.bmp")
Call Ridisegna()
End Sub

'Click sul pulsante Zoom+
Private Sub ZoomInc_Click()
Riduz = Riduz * 1.5
Call Ridisegna()
End Sub

'Click sul pulsante Zoom-
Private Sub ZoomDec_Click()
Riduz = Riduz / 1.5
Call Ridisegna()
End Sub

'Sub che ridisegna l'immagine
Private Sub Ridisegna()
call Picture1.PaintPicture(Img,0,0,Img.Width * Riduz,Img.Height * Riduz)
End sub
Dovrebbe funzionare...