Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load VScrollBar1.Maximum = (Panel1.Height - Me.Height) + 500 VScrollBar1.SmallChange = 50 VScrollBar1.LargeChange = 100 End Sub Private Sub VScroll1_Change() Panel1.Top = 0 - VScrollBar1.Value End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)