make an userform able to scroll with a mouse

[Fhorst]

Hello,

I've been reading and testing and testing and testing.... But I just can't get it to work.

Thanks to an other post from Peter Thornton, I already have some coding :-)
https://social.msdn.microsoft.com/Fo...0?forum=isvvba
Some additional information:
- I use a 64bit Windows 7, and Office 2013, also 64bit.

Here's my problem.

Every time I try to run the code, it gives me an compilation error:

The text is roughly:There can only be remarks after End Sub, End Function or End Property

This section is marked Blue by MS Excel 2013

Private Declare PtrSafe Function FindWindow Lib "user32" _
Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long

As far as I could see, all the coding is correct.

My code from the Userform1:

Please Login or Register  to view this content.

The other code in the next post..


Can one of you please point me in the right direction? I love to have this function.

Thank you.

[Fhorst]

And my code from the Module:

Please Login or Register  to view this content.