Userform Minimize no longer working is it since last MS auto update

I use a userform menu that has a minimize to taskbar function that I spotted somewhere and adapted. This function stopped working recently and I cannot track the cause. I created a new workbook with just the menu and no other code but the minimize button still doesn't appear. I'm beginning to wonder if an MS upgrade has caused this. Workbook is for both 32 and 64bit and would appreciate if someone could try opening the workbook to see if works there.

Ta Nigel

Use Findwindow in the code that adds the minimize button, instead of GetActiveWindow- which should be returning a LongPtr in 64 bit incidentally, not a Long.

Please Login or Register  to view this content.

and then use

Please Login or Register  to view this content.

in the userform code.