Dim gbs As GroupBox() = {Me.GroupBox1, Me.GroupBox2}
        For Each gb As GroupBox In gbs
            For Each c As Control In gb.Controls
                If TypeOf c Is PictureBox Then
                    AddHandler CType(c, PictureBox).Click, AddressOf _
                      AllPictureBox_Click
                End If
            Next
        Next