Ridurre le dimensioni di una imm/agine da codice.. Come?

[xegallo]

Private Sub Form_Load()
   Image1.Stretch = True
   Image1.Picture = LoadPicture("C:\Documents and Settings\PereGallo\Documenti\Immagini\18.jpg")
   Image1.Height = 1000
   Image1.Width = 1000
End Sub