MouseMove and ComboBoxes

[Allen Schoessler]

I am just finishing up one of my apps, and I have run into a problem. My application uses a help panel on the side, and there is a Label in it that changes whenever you move the mouse over the contents of the form. So, when you move the mouse over a certain Listbox, the help panel says "Shows the key actions you can change."

I do each of these through the MouseMove Sub, as follows:

Private Sub lstActions_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblHelp.Caption = lstActions.Tag
End Sub

Then I set the .Tag of the Listbox to whatever I want the help to be.

Now, the problem:
There is a ComboBox on my form. Space does not permit me to use another Listbox, and ComboBoxes do not have a MouseMove Sub. What should I do? I have thought of using the Form's MouseMove Event to trigger whenever the mouse goes over that part of the form, but I can't make it work.