Dim links As Integer = (pnl1.Width - pnl2.Width) / 2
Dim oben As Integer = (pnl1.Height - pnl2.Height) / 2
If pnl2.Width < pnl1.Width And pnl2.Height > pnl1.Height Then
 pnl2.Location = New Point(links - (17 / 2), 5)
 pnl1.AutoScrollMargin = New Size(0, 5)
ElseIf pnl2.Width > pnl1.Width And pnl2.Height > pnl1.Height Then
 pnl2.Location = New Point(5, 5)
 pnl1.AutoScrollMargin = New Size(5, 5)
ElseIf pnl2.Width < pnl1.Width And pnl2.Height < pnl1.Height Then
 pnl2.Location = New Point(links, oben)
End If