For Each with Collection : For Each « Statements « VB.Net Tutorial

1. VB.Net Tutorial
2. Statements
3. For Each

Imports System.Collections


public class Test
   public Shared Sub Main
        Dim m_employees As New Collection
        m_employees.Add(New employee("A", "F", "F"))
        m_employees.Add(New employee("B", "E", "H"))
        m_employees.Add(New employee("C", "D", "I"))


        For Each emp1 As employee In m_employees
            If emp1.FirstName = "A" Then Continue For
            Console.WriteLine(emp1.Title & " " & emp1.FirstName & " " & emp1.LastName)
        Next emp1

   End Sub

End class

    
Public Class Employee
    Public FirstName As String
    Public LastName As String
    Public Title As String
    Public Sub New(ByVal first_name As String, ByVal last_name As String, ByVal new_title As String)
        FirstName = first_name
        LastName = last_name
        Title = new_title
    End Sub
End Class

H B E
I C D