Imports System
Imports System.Collections.Generic

Public Class Test
    Public Shared Sub Main()
        Dim list_target As New List(Of Integer)(New Integer() {1, 2, 5, 5, 7, 8, 9, 10, 10, 12})

        Dim _tmp As New List(Of Integer)
        For Each obj As Integer In list_target
            If obj Mod 2 = 0 Then
                ' 要刪除的部分
            Else
                ' 要留下來的部分
                _tmp.Add(obj)
            End If
        Next
        list_target = _tmp

        ' 相當於下面: (VB 2010
        'Dim list_target As New List(Of Integer)({1, 2, 5, 5, 7, 8, 9, 10, 10, 12})
        'list_target = list_target.FindAll(
        '    Function(obj As Integer) As Boolean
        '        If obj Mod 2 = 0 Then
        '            Return False ' 要刪除的部分
        '        Else
        '            Return True
        '        End If
        '    End Function
        ')

        For Each obj As Integer In list_target
            Console.WriteLine(obj)
        Next
    End Sub
End Class