Visual Basic - Cambiar la Image

Si añado una foto con la opcion "Image" en un formulario como puedo hacer un menu para cambiar dicha imagen por otra.

Para cambiar una imagen a otra debes poner la ruta donde se encuentre la imagen, ejemplo:
Private Sub Command2_Click()
Static i As Integer
If i = 0 Then
Image1(0).Picture = LoadPicture(App.Path & "\0.jpg")
i = 1
ElseIf i = 1 Then
Image1(0).Picture = LoadPicture(App.Path & "\1.jpg")
i = 2
ElseIf i = 2 Then
Image1(0).Picture = LoadPicture(App.Path & "\2.jpg")
End If
End Sub

Probá este código
'A nivel módulo
Private iPic as integer
Private const NumImg as Integer=3 'Tres imágenes (Img1. jpg; img2.Jpg; img3.jpg, todas ubicadas en App.Path\Imagenes)

Private sub CambiarImagen
iPic=iPic+1
If iPic >NumImg then iPic=NumImg
Set Image1.Picture=nothing 'Limpia la imagen anterior
Set Image1.Picture =LoadPicture(App.Path &"\Imagenes\Img" & iPic & ".jpg")

end sub

Esto te sirve para cualquier cantidad de imágenes que tengas, sólo colocalas en el directorio "Imagenes" (u otro que quieras) y utilizá el mismo nombre base para todas, en este caso img, luego colocá en NumImg cuantas imágenes vas a mostrar.
Nota: Si NumImg=6, deben existir img1.Jpg; img2.Jpg....,img6.Jpg
Elegí Jpg, pero puede ser cualquier extensión que admita el control image

Saludos Ruri