Dovresti mettere il codice MouseMove sulla form
codice:
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Picture = LoadPicture("c:\AltraImmagine.gif")
End Sub
Altrimenti si potrebbe anche intercettare l'evento in cui il mouse va fuori dal controllo ma è una cosa + complicata che VB6 non gestisce di Default

Inoltre questo non funzione
codice:
vchiudi2 = App.Path & "image1.gif"
perchè deve essere messo così
codice:
vchiudi2 = App.Path & "\image1.gif"