Image设置了Index 怎么做鼠标移动事件

Private Sub Image（0）_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)

'鼠标移动到Image(0)时 变换图像
Image（0）.Picture = Image1(0).Picture

End Sub

Private Sub PictureBox(0)_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)

'鼠标离开image,在Picture移动
Image（0）.Picture = Image2(0).Picture

End Sub

这个要怎么修改
Private Sub PictureBox(0)_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)

with Image（0）

if x>.left and y>.top and x<.left+.width and y<.top+.height then 
  .Picture = Image2(0).Picture
end if
end with
End Sub