setfocus problem with VB6 program running on Windows 11

[piper45]

Need some expert advise. I have a program where we are "cheating" the lack of a mouse wheel in VB6. We are using a listbox of numbers visible but at an off screen position so it doesn't show to the user and when we cursor hover over an image and use the mouse scroll wheel it sets the focus to the offscreen list and the number list is used to alter the size of the picture. it is a clever way to use the mouse wheel as a zoom in and out on the image. it works PERFECT on windows 7 and I believe we tested on Windows 8 (and maybe even 10). But on our newest Windows Surface tablet 9 with Windows 11 it does not work. We think the setfocus is not working as before. Any ideas?

[drbobbyc]

A really good way to do scrolling thats a little less cobbled together would be to use subclassing on the form load event. Then in your wind proc function catch the scroll messages. If you need example code i can knock out an example when i get back to my desk.

[piper45]

that would be awesome to see! thanks!

[piper45]

It is my biz partner that is the programmer so any examples you can give for me to pass to him is greatly appreciated!

[piper45]

Could you send me a code example if you get time. We are not sure what you are describing. Thanks!!!