'Control hinzufügen
        AddControls("", "", "")
        Speichern = True
        Me.FlowLayoutPanel1.AutoScrollPosition = New Point( _
          Me.FlowLayoutPanel1.Size)

FlowLayoutPanel1.AutoScroll = True 'muss True sein!
 
'Beispiel: 20 Buttons dem FlowLayoutPanel hinzufügen
For i = 1 To 20
  Dim b As New Button With {.Width = 200, .Height = 150, .Text = "Knopf " & i}
  FlowLayoutPanel1.Controls.Add(b)
Next
 
' Sprung zum letzten Steuerelement und aktivieren
Dim last = FlowLayoutPanel1.Controls.OfType(Of Control).Last
FlowLayoutPanel1.ScrollControlIntoView(last)
last.Select()