Label scrolling with scroll bar

[bluehairman]

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:

    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