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

SW1wb3J0cyBTeXN0ZW0KSW1wb3J0cyBTeXN0ZW0uQ29sbGVjdGlvbnMuR2VuZXJpYwoKUHVibGljIENsYXNzIFRlc3QKICAgIFB1YmxpYyBTaGFyZWQgU3ViIE1haW4oKQogICAgICAgIERpbSBsaXN0X3RhcmdldCBBcyBOZXcgTGlzdChPZiBJbnRlZ2VyKShOZXcgSW50ZWdlcigpIHsxLCAyLCA1LCA1LCA3LCA4LCA5LCAxMCwgMTAsIDEyfSkKCiAgICAgICAgRGltIF90bXAgQXMgTmV3IExpc3QoT2YgSW50ZWdlcikKICAgICAgICBGb3IgRWFjaCBvYmogQXMgSW50ZWdlciBJbiBsaXN0X3RhcmdldAogICAgICAgICAgICBJZiBvYmogTW9kIDIgPSAwIFRoZW4KICAgICAgICAgICAgICAgICcg6KaB5Yiq6Zmk55qE6YOo5YiGCiAgICAgICAgICAgIEVsc2UKICAgICAgICAgICAgICAgICcg6KaB55WZ5LiL5L6G55qE6YOo5YiGCiAgICAgICAgICAgICAgICBfdG1wLkFkZChvYmopCiAgICAgICAgICAgIEVuZCBJZgogICAgICAgIE5leHQKICAgICAgICBsaXN0X3RhcmdldCA9IF90bXAKCiAgICAgICAgJyDnm7jnlbbmlrzkuIvpnaI6IChWQiAyMDEwCiAgICAgICAgJ0RpbSBsaXN0X3RhcmdldCBBcyBOZXcgTGlzdChPZiBJbnRlZ2VyKSh7MSwgMiwgNSwgNSwgNywgOCwgOSwgMTAsIDEwLCAxMn0pCiAgICAgICAgJ2xpc3RfdGFyZ2V0ID0gbGlzdF90YXJnZXQuRmluZEFsbCgKICAgICAgICAnICAgIEZ1bmN0aW9uKG9iaiBBcyBJbnRlZ2VyKSBBcyBCb29sZWFuCiAgICAgICAgJyAgICAgICAgSWYgb2JqIE1vZCAyID0gMCBUaGVuCiAgICAgICAgJyAgICAgICAgICAgIFJldHVybiBGYWxzZSAnIOimgeWIqumZpOeahOmDqOWIhgogICAgICAgICcgICAgICAgIEVsc2UKICAgICAgICAnICAgICAgICAgICAgUmV0dXJuIFRydWUKICAgICAgICAnICAgICAgICBFbmQgSWYKICAgICAgICAnICAgIEVuZCBGdW5jdGlvbgogICAgICAgICcpCgogICAgICAgIEZvciBFYWNoIG9iaiBBcyBJbnRlZ2VyIEluIGxpc3RfdGFyZ2V0CiAgICAgICAgICAgIENvbnNvbGUuV3JpdGVMaW5lKG9iaikKICAgICAgICBOZXh0CiAgICBFbmQgU3ViCkVuZCBDbGFzcw==