IEnumerator

Option Strict On
Option Infer Off
Option Explicit On


Public Class Form1
    Private m_Employees As New List(Of Employee)


    Private Sub Form1_Load() Handles MyBase.Load
        m_Employees.Add(New Employee With {.FirstName = "Alice", .LastName = "Archer"})
        m_Employees.Add(New Employee With {.FirstName = "Bill", .LastName = "Bently"})
        m_Employees.Add(New Employee With {.FirstName = "Cindy", .LastName = "Cann"})
        m_Employees.Add(New Employee With {.FirstName = "Dave", .LastName = "Dent"})
        m_Employees.Add(New Employee With {.FirstName = "Emma", .LastName = "Erg"})


        Dim employee_enumerator As IEnumerator(Of Employee)
        employee_enumerator = m_Employees.GetEnumerator()
        Do While (employee_enumerator.MoveNext)
            lstEmployees.Items.Add(employee_enumerator.Current.FullName())
        Loop
    End Sub
End Class


Public Class Employee
    Public FirstName As String
    Public LastName As String
    Public Function FullName() As String
        Return FirstName & " " & LastName
    End Function
End Class