Public Class TestClass
    Public Val1 As String
    Public Val2 As String
 
    Public Sub New(ByVal val1 As String, ByVal val2 As String)
        Me.Val1 = val1
        Me.Val2 = val2
    End Sub
End Class

Public Class Form1
    Private mTestList As New List(Of TestClass)
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        With mTestList
            .Add(New TestClass("a", "1"))
            .Add(New TestClass("b", "2"))
            .Add(New TestClass("c", "3"))
            .Add(New TestClass("d", "4"))
            .Add(New TestClass("e", "5"))
        End With
    End Sub
 
    Private Sub CheckList()
Begin:
        For i As Integer = 0 To mTestList.Count - 1
            If mTestList(i).Val1 = "b" Or mTestList(i).Val2 = "5" Then
                mTestList.RemoveAt(i)
                GoTo Begin
            End If
        Next
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        CheckList()
    End Sub
End Class