MouseMove

EL siguiente código nos permite cambiar el color de la imagen al momento de mover el Mouse sobre ella (El efecto consiste en cambiar la imagen de color por una en blanco y negro).

Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

  With ActiveWorkbook

     Image2.Picture = LoadPicture(.Path + "\cuerpoColor.jpg")

     Image3.Picture = LoadPicture()

  End With

End Sub

'Este código nos muestra el formulario que deseamos

Private Sub Image2_Click()

  UserForm2.Show

End Sub

Private Sub Image2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

  With ActiveWorkbook

     Image2.Picture = LoadPicture(.Path + "\cuerpoNegro.jpg")

     Image3.Picture = LoadPicture(.Path + "\Mi cuerpo.jpg")

  End With

End Sub

Ejemplo de la Pantalla Inicial