Label scrolling with scroll bar

First off this is UserControl will make it so you have a label and you are able to scroll through the text of the label. I made this because I couldn't find it anywhere.
its my first UserControl so don't go so hard on me. I know some parts could most likely be done a lot better but its the only way I knew how to do it..
Simple code to scroll:

Code:

---

    Dim cMax As Integer
    Dim cValue As Integer
    Dim cHeight As Integer
   
    cHeight = lblMessage.Height
    VScroll.Max = cHeight
    cValue = VScroll.Value
   
    lblMessage.Top = cValue - (cValue * 2)

---

Attached code is the source. I hope you all enjoy :)

Per this CodeBank policy for attachments, I have removed the compiled OCX file posted in your attachment.

Please post source code only.

Thanks.

Ahh, ok sorry about that.
I only skimmed over that topic... Thats my fault there.

Updated version that is much better
Credits: Jottum

Quote:

---

Originally Posted by bluehairman

Updated version that is much better: [...]

Credits for editing: Jottum

---

Note for moderator:
I didn't want to change bluehairman's code without consulting him, which I did through PM. I've asked him to attach the file and remove the download link.

I wanted to put a thing like this in my IPT assignment so I could scroll down the EULA but couldn't figure out how to do it. This code's saved my life, thanks :D