Private Sub ContextMenuStripcooling_ItemClicked(ByVal sender As Object, _
      ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles _
      ContextMenuStripcooling.ItemClicked
        Dim zaehler As Integer = 0
        'schauen ob und wieviele LU in diesem Abschnitt enthalten sind
        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
                zaehler += 1
            End If
 
 
        Next
 
        If zaehler > 0 Then
            Dim result As MsgBoxResult
            result = MsgBox("Es sind/ist auf diesem Feld " & CStr(zaehler) & "" & _
              "Liefergrenze(n) enthalten!" & vbCrLf & "Sollen diese gelöscht" & _
              "werden", MsgBoxStyle.YesNo)
            If result = MsgBoxResult.Yes Then
 
                For Each c As Control In LUplace.LUPicture.Controls
                    If c.Name = "lieferumfang" Then
                        LUplace.LUPicture.Controls.Remove(c)
                    End If
            End If
        End If
 
 
    End Sub