For Each i As Control In LUplace.LUPicture.Controls
                    Dim pic As PictureBox = CType(i, PictureBox)
                    If pic.Location.X < 866 And pic.Location.X > 0 And _
                      pic.Location.Y < 579 And pic.Location.Y > 0 Then
                        LUplace.LUPicture.Controls.Remove(pic)
                    End If
 Next