Userform pop up on mouse hover

[Qmustard]

Hia ll,

Not sure how easy (and if its possible at all) this is, but I'd like to be able to hover over an image on a userform and have another userform pop up.
When you then move the mouse cursor away from the image, the userform it popped up then closes.

My current code is the following:

Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Spare.Show
End Sub

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)S
pare.hide
End Sub

When I load the userform with the code in it, hovering over the image just closes causes the following:

Run-time error '402':
Must close or hide topmost modal form first

Which I interpret as Excel telling me it needs to close the first userform first.

I've tried using me.hide as well and this just hides the first userform.

Any suggestions or is this just not possible with an easy bit of code?

 

[Kenneth Hobson]

I have not tried it but when showing those, try using Show's vbModeless option. e.g.

Userform1.Show vbModeless
Spare.Show vbModeless

You will need to add move options so they don't overlap too much.

 

[Qmustard]

Hmm, I tried putting that in the first part of the code and it still produces the same Run Time error.