Private Sub testpanel()
 
        Panel1.Height = 400
        VScrollBar1.Maximum = 20
 
        TextBox1.Location = New Point(16, 260)
        TextBox2.Location = New Point(16, 300)
 
        'Me.Controls.Add(panel1)
 
        Panel1.Controls.Add(Label1)
        Panel1.Controls.Add(Label2)
 
        Panel1.Controls.Add(TextBox1)
        Panel1.Controls.Add(TextBox2)
 
        Panel1.Controls.Add(Button1)
        Panel1.Controls.Add(Button1)
 
        Panel1.Controls.Add(VScrollBar1)
 
End Sub

Private Sub VScrollBar1_ValueChanged(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles VScrollBar1.ValueChanged
        TextBox4.Text = VScrollBar1.Value
 
        Panel1.Location = New Point(0, -VScrollBar1.Value * 10)
        VScrollBar1.Location = New Point(224, VScrollBar1.Value * 10)
        Panel1.Refresh()
    End Sub