Windows 10-Excel 2016/365
我一直在尝试使用CésarMades在Link发布的64位VBA代码
问题是我在Type Mismatch行的ByVal参数中遇到了编译错误Private Sub AddIcon()
lngRet = Class1.SendMessage(hWnd, WM_SETICON, ICON_SMALL, ByVal hIcon)
（我添加了Class1。由于某种原因（？），虽然我不知道为什么这是必要的，但并未找到/找到这些功能）
这可能是由于与我在Cristian Buse中使用的Mouse Scroll函数冲突导致的，该函数可以在https://github.com/cristianbuse/VBA-UserForm-MouseScroll处找到，该函数也使用了ByVal参数，但在它自己的-没有我正在尝试添加到我正在开发的表单中的Icon功能。
我承认自己是VBA的新手，但由于这里提供了帮助，因此学习很快。
欢迎任何建议或指导，并表示赞赏。
SlàinteMhath！