Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Panel2.Top = 0
        Panel2.Left = 0
        Panel2.Width = Panel1.ClientRectangle.Width
        Panel2.Height = Panel1.ClientRectangle.Height * 1.5
        Button1.Top = 0
        Button1.Left = 0
        Button2.Top = Panel2.ClientRectangle.Height - Button2.Height
        Button2.Left = Panel2.ClientRectangle.Width - Button2.Width
        VScrollBar1.Minimum = 0
        VScrollBar1.Maximum = Panel2.Height - Panel1.Height + 10
        VScrollBar1.SmallChange = 2
    End Sub
 
    Private Sub VScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As _
      System.Windows.Forms.ScrollEventArgs) Handles VScrollBar1.Scroll
        Panel2.Top = -e.NewValue
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist