Private Sub ContextMenuStripcooling_ItemClicked(ByVal sender As Object, _
      ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles _
      ContextMenuStripcooling.ItemClicked
 
        Dim _removeCtrls As New List(Of Control)
 
        For Each ctrl As Control In LUplace.LUPicture.Controls
            ' Frage nach Typ dieses Controls und dessen Position
            If TypeOf ctrl Is PictureBox AndAlso _
                ctrl.Left > 0 And ctrl.Left < 866 And _
                ctrl.Top > 0 And ctrl.Top < 579 Then
 
                ' Control in die Liste aufnehmen
                _removeCtrls.Add(ctrl)
            End If
        Next
 
        If _removeCtrls.Count > 0 Then
            Dim result As MsgBoxResult
            result = MsgBox("Es sind/ist auf diesem Feld " & _removeCtrls.Count _
              & " Liefergrenze(n) enthalten!" & vbCrLf & "Sollen diese gelöscht" & _
              "werden", MsgBoxStyle.YesNo)
 
            If result = MsgBoxResult.Yes Then
                For Each ctrl As Control In _removeCtrls
                    LUplace.LUPicture.Controls.Remove(ctrl)
                Next
            End If
        End If
    End Sub