Visual Basic - Redimensionar imagen en tiempo de ejecucion

Hola ya estoy por aqui otra vez jeje
Alguien sabe como puedo redimensionar controles (en este caso una imagen) en tiempo de ejecucion??
Podriais pasarme el codigo?

Gracias

No se si se entiende pero con redimensionar, me refiero a hacerlo con el raton pinchando en la esquina y estirando.

Feliz fin de semana

como nadie contesta ya contesto yo jejejeje

Dim i as integer

Private Sub image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
i = 1
End Sub

Private Sub image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If i = 1 Then

if x > 0 and y > 0 then
Image1.Width = X
Image1.Height = Y
end if

End If
End Sub

Private Sub image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
i = 0
End Sub