Private Function Set_ParentOfPicturebox(ctrl As Control) As Boolean
 
        Dim bSet As Boolean = True
        'Erster Aufruf erfolgt mit ctrl = Panel1
 
        For Each c As Control In ctrl.Controls
            'Die Pictureboxen können als Child eine Picturebox besitzen
            If c.HasChildren Then
                For Each Child As Control In c.Controls
                    bSet = Set_ParentOfPicturebox(Child)
                Next
            Else
                'Letze Picturebox ohne Child
                If TypeOf ctrl Is PictureBox Then
                    c.Parent = Panel1
                End If
 
            End If
        Next
        'Der Parent Picturebox
        If TypeOf ctrl Is PictureBox Then
            ctrl.Parent = Panel1
        End If
 
        Return bSet
    End Function

       'Parents neu festsetzen
        For i = 0 To PicArray.Length - 2 'Letzte Picturebox auf Form belassen
            Panel1.Controls("Picturebox" & PicArray(i).ToString).Parent = _
              Panel1.Controls("Picturebox" & PicArray(i + 1).ToString)
        Next