Ruedita mouse scroll raton

Private Const SM_MOUSEWHEELPRESENT = True
Hola a todos. En algun lugar de internet encontre esto para que funcione la
ruedita scroll del raton, pero no funciona, obvio sino no hubiese posteado :
P
Si alguien conoce la forma de hacerla funcionar en un listbox contenido en
un userform me pueda facilitar el codigo, o la ayuda de como hacerlo.
Gracias.
Saludos a todos.
PD. Tiene que funcionar en Excel 2002 y 2003.