Dim List As New List(Of PictureBox)
For Each PictureBox As PictureBox In GroupBox1.Controls.OfType(Of PictureBox)
List.Add(PictureBox)
Next
Dim Array As Array = List.Where(Function(t)
Dim Int As Integer = Integer.Parse(t.Name.Replace("PictureBox", ""))
If Int > 5 AndAlso Int < 8 Then
Return True
Else
Return False
End If
End Function).ToArray